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bv Clayton Walnum 

Adventure games have been with us for 
a long time, and over the years they 
have gone through many changes. 
While some of those changes have in- 
creased the quality of the adventure 
experience, others have been the subject of 
constant debate and controversy. 

In the beginning, there were text adventures 
that accepted only sunple two- word, verb/ 
noun commands. Soon, however, clever 
programmers expanded the inteUigence of ad- 
venture parsers (the section of the program 
that translates for the computer the text typed 
in by the player) so that they could understand 
ftill sentences. Instead of typing a series of 
commands like "GET KNIFE," "CUT 
ROPE" and "GO NORTH," suddenly we had 
the capability to enter "GET THE KNIFE, 
CUT THE ROPE AND GO NORTH." 

But even with that kind of flexibility, play- 
ers were not satisfied. They wanted not only 
words, but pictures too. Soon, text adventures 
were developed that, though they played ex- 
actly like the games that came previously, in- 
cluded a graphics window above the text, 

JUNE A.N.A.L.O.Q. CompuCing 



displaying a static picture of the current 
"room." 

The key word in the previous sentence is 
"static." Except for perhaps providing a clue 
or two, the graphics were not an interactive 
part of the adventure; all the player could do 
was look. But you can't stop progress, and 
it wasn't long before games employed graph- 
ics in a more sophisticated way, allowing 
players to "pick up" certain objects on the 
screen. 

Still, adventure creators and players re- 
mained unsatisfied. Luckily, computer ani- 
mation techniques had become very 
sophisticated; player-controlled "movies" 
could now be created, which gave birth to the 
animated adventure games we're so familiar 
with today, most of which incorporate little 
text. 

Has the adventure-game industry moved 
forward? Or are the modem, animated graph- 
ics adventures just more cheap entertainment 
for a lazy society brought up on TV and fast 
food? It's an interesting question and one that 
is tackled in this issue by adventure and 



science fiction author Michael A. Banks. 
Fans of any type of adventure game will en- 
joy Mike's thought-provoking article "The 
Adventure Game Showdown." 

Also in this issue, you'll find the first 
ANALOG text adventure that will accept 
complete sentences as input. Don't miss Bar- 
ry Kolbe's 100% machine-language spy sto- 
ry, "Secret Agent: Mission 1." 

Of course, this issue is not dedicated only 
to adventure games, but to the entire Atari 
computing adventure. For example, fans of 
brainteasers are sure to be delighted with Earl 
Hill's "Marble Magic," a computer version 
of a popular puzzle game. Craig J. Stadler's 
"Disk Directory Alphabetizer" is a handy 
utility that'll take the drudgery out of find- 
ing a particular file on a crowded disk. 

Adventures in programming continue this 
month with Kevin T. Pate's "Accessing Atari 
XL Hidden Memory," as well as with 
ANALOG'S regular columns Boot Camp and 
BASIC Training. 

As usual, we have something for everyone. 
Just turn the page and see. H 
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READER 
COMMENT 



Panak 
Stricken 



I feel that the 8-bit Ataris are the finest 
computers around for the paltry sum asked, 
and the best support for the Atari is ANA- 
LOG Computing. It's unfortunate then that 
such a winning combination should continue 
to support the drivel spouted by Steve Panak 
every month. 

For example, he gets himself in trouble 
with Micromiser and, when his errors are 
pointed out, proclaims that his remarks do 
not control the entire industry. But we're not 
talking about the entire industry, are we? 
We're talking about a small slice of the in- 
dustry which is influenced by Mr. Panak's 
gloom-and-doom column. I, for one, find his 
contempt for the "lowly" 8-bit line complete- 
ly tasteless. 

I suggest that, if Mr. Panak wishes to con- 
tinue writing, he write for magazines other 
than the one that supports the 8-bit Atari. 
Perhaps he should avoid the Atari 
completely— assuming he finds the ST as 
backward and contemptible. 

I'm sure there are dozens, if not hundreds, 
of readers who would not only buy their soft- 
ware, but review it in an objective manner 
without cridcizing the hardware on which it 
runs. —Mark Gamber 

Lancaster, PA 

Ahem. I don V suppose you 'II he sending 
Steve a Christmas card this year. Seriously, 
though, Steve certainly holds no contempt for 
Atari computers. After all, he's been writing 
for the Atari cotnmunity for many years and 
has, in fact, reviewed more software for 



ANALOG them any other single contributor. 

But just as people have veiy differing opin- 
ions about which computer is best, so do they 
have differing opinions about which com- 
puters are best for which applications. If 
Steve prefers a different computer for his bus- 
iness applications, that's not so much a re- 
flection on the hardware, but on the software 
that's available for the machine. Tlie pro- 
grams that Steve likes for business are not 
available on the Atari; it 's as simple as that. 
I don 't believe Steve has ever called an Atari 
computer contemptible. 

By the way, Steve does own an ST and is 
currently reviewing many games on that 
machine. Wiry would he run out and buy an 
ST if he thought Atari machines were 
"backward"? 




I am a recent subscriber to ANALOG, and 
I have an 800XL with an XF55I disk drive. 
I enjoyed your programs Snowplow and 
Snowplow Editor from the September and 
October 1988 issues. I made two extra 
maps with the editor and named these 
SMAP.2 and SMAP.3. I then added them 
to the back-up disk containing SNOW- 
PLOW.OBJ and SMAP.I from the October 
disk. 

However, now when I play Snowplow, it 
cycles through the original game map, 
SMAP.I, and SMAP.2, but it skips 
SMAP.3 and reruns the original map, 
SMAP.I. What is the problem? 

— John E. Basich 
Greendale, WI 

Bryan Schappel, co-author of Snowplow 
has informed us that you need to use a 
two-digit extension on your map files. You 
should rename SMAP.2 to SMAP.002, 
SMAP.3 to SMAP.003, and so on. Sorry for 
the confusion. 



I would like to start an Atari farmer's and 
gardener's users' group. Anyone who is us- 
ing an Atari 8-bit computer to help them 
with their gardening/farming is welcome to 
join. If there is enough interest, we will is- 
sue a disk of useful programs for gardeners, 
once we've accumulated them. 

At the moment, the Atari 8-bit is the 
most cost-effective computer around. Let's 
get on the ball and see if we can apply it 
to this rewarding hobby. If anyone has soft- 
ware they have written and would like to 
share with us, or if anyone would like to 
help us get this project rolling, drop us a 
letter with a self-addressed, stamped enve- 
lope, and we'll let you know how it's going. 

We are particularly interested in artifi- 
cial intelligence applications for sorting 
plant nutrient requirements, programs to 
track nutrient usage and anything that 
would help with the task of growing food. 
Thank you very much for publishing this 
letter. — Lee Jones 

Gromor-Systems 
Rt. 1, Box 76-B 
Pleasantville, TN 37147-9801 



A Home 
Divided 



A few months ago I purchased a used 
Atari 800XL with a disk drive. Having no 
previous Atari experience and no manuals 
for the computer, I turned to magazines as 
my only resource. I was very excited to see 
your magazine. I have recently sent in my 
subscription and am looking forward to 
reading your magazine every month. It has 
truly been a big help. 

I've been following the plight of Atari for 
a much longer time. I have all of Atari's 
game machines except the XEGS (owning 
an XL computer covers that). It seems to 
me that the troubles Atari is undergoing are 
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rooted deep within Atari itself. Sure, there 
are many reasons why they've had 
trouble— their small ST sales in the U.S., 
for example. However, Atari seems to have 
a lot of internal problems, as well. Your 
editorial in the January '89 issue talks of 
the loss of Neil Harris. I've also heard of 
Atari losing other top people. Maybe Atari 
should work on fixing their internal trou- 
bles first; a house divided cannot stand. 
Atari has good enough equipment out 
there. They don't need to introduce any- 
thing new just yet. 

Switching gears, I have a problem I was 
hoping you could help me with. I have a 
Brother EP-22 typewriter/printer with a 
standard 25-pin RS-232 interface. I'd like 
to use it with my 800XL, but I'm unsure 
how to do this. Does an Atari 850 inter- 



face have an RS-232 port that I could use, 
or will I need some other interface? 

Thank you for your support, and keep 
up the good work. It's the best Atari 8-bit 



coverage! 



-Scott M. Standiford 
Post Falls, ID 



/ doubt Atari is in any serious trouble. 
Their "problems" are perceptual, the 
result of a poor image in the U.S. , not with 
the financial health of the company. You are 
right in your observation that Atari goes 
through a lot of e.xecutives. In fact, this 
phenomenon has become so well known it 
was dubbed the "Atari rotating-door syn- 
drome." We at ANALOG suspect that the 
reason behind this is the fact that Atari is 
a ' family ' ' company — never heard of a 
Traniiel being fired, have you? 



You are wrong, however, when you say 
that Atari doesn't have to introduce new 
products. In the highly volatile computer 
market, if you don 't keep up, you 're 
doomed. 

As for your problem with the Brother 
printer: Yes, the Atari 850 inteiface has an 
RS-232 port — in fact, it has four of them. 
But you 'II have to find software that 'II ena- 
ble you to direct your output to the RS-232 
port rather than to the standard parallel 
printer port. Want to use a telecommuni- 
cations program as a word processor? 

Send your letters to: 
ANALOG Computing 
Reader Comment 
P.O. Box 1413-M.O. 
Manchester, CT 06040-1413 
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Have you read a good book lately? If you're 
under 25, the probability is better than 50% 
that you haven't. It's a sad-but-true fact that 
literacy is on the decline in our country. Sad, 
because literacy — the ability to access infor- 
mation as a solo effort, with minimal graph- 
ic support and without dedicated 
technological enhancement (a/k/a reading)— 
is one of the cornerstones of Western culture. 
UnforUinately, most students leave the Ameri- 
can public school system with minimal read- 
ing skills. And many otherwise-intelligent 
people who can read simply will not read a 
book because it takes too much effort. 

While the electronic media is not solely 
responsible for this sad state of affairs, it can 
be argued that television, movies and com- 



puter gaming have helped lower the level of 
literacy by discouraging the reading of books. 
The connection is simple: Television and 
films are so much easier to use than books. 
Novels force you to create your own images, 
to concentrate on what's going on— to think. 
(So do radio dramas, incidentally.) TV, films 
and the vast majority of computer games, on 
the other hand, require nothing more than 
open eyes and ears (and with games, a little 
finger and wrist movement). Open wide and 
let someone else's images pour in. And, be- 
ing human, most of us tend to take the path 
of least resistance— even in seeking 
entertainment— perhaps ignorant of the fact 
that with greater effort come greater rewards. 
This is not to say I don't like television or 



movies or arcade games (although, as a 
writer, I have a vested interest in the print me- 
dia). I'm a card-carrying member of the so- 
called television generation, counting myself 
among that first group of millions of children 
to grow up watching TV. (I'm 38, and some 
of my earliest memories are of watching 
westerns on an old black-and-white set in 
1954). My collection of movies on 
videotape— ranging from Casablanca to 
Beverly Hills Cop to 2001: A Space 
Odyssey— [s prolific and eclectic, to say the 
least. And, like most of you, I've wasted 
hundreds of hours at coin-op and computer 
arcade games. 

My point— and it's an entirely philosophi- 
cal, though pragmatic, point— is this: Though 
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television has its subjective and objective 
merits, there must be a balancing influence. 
Call it "moderation in all things— even in 
moderation," as Father Perrault taught in 
James Hilton's Tlie Lost Horizon. As a cul- 
ture, we're not achieving that moderation. 
We're pigging out on the easy information 
sources, the kind that force us to let others 
make our pictures (and, in effect, do our 
thinking) for us. 



The effects are adverse, to say the least. 

Saying It With Words 

What, you may wonder, has ail this to do 
with adventure gaming? Quite a lot. There 
are more than a few parallels between the 
movement of advenuire gaming toward graph- 
ics and the displacement of books and radio 
by television and movies. 

In the beginning, text adventure games 



used words— and words only. Early {circa 
1980) personal computers such as the TRS-80 
Model I and the Apple II couldn't handle any- 
thing else decently. They had their RAMs 
full, running a program that could parse sim- 
ple verb/noun input; decide on, search out, 
and deliver canned responses from databases; 
and juggle behind-the-scenes flags as ap- 
propriate. Besides, those machines had poor 
graphics capabilities, and the addition of then 

continued on page 80 
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Mission 




You glance at your watch for the sixth 
time. It is just past 1:30 a.m. Time to start 
work. Just two days ago was the first you'd 
heard of Dr. Moore. Nice guy, designer of 
a killer biological organism. CONTROL 
called and briefed you. There was not much 
information. Moore had been trailed to a 
lab— the lab you're standing in front of right 
now. Hmmm, suspicious, only one entrance 
just west of you. The report said there was 
a vial containing the organism and three 
forms of data relating to the organism. One 
form was most likely a formula. As to the 
others, it's anyone's guess. Your job: Steal it 
before Moore can sneak it out of the country 
and sell it to our enemies. 

There doesn't seem to be an alarm system, 
and the front door was easy to pick. Too easy. 
You wonder what it's like inside. They must 
have some security measures. It looks very 
high tech. Well, here goes. The door is open 
now. You're going inside. The door is swing- 
ing shut— slowly. What's that? Whaml A steel 
panel dropped from the ceiling and is block- 
ing the exit. Now how do you get out? Well, 
that can wait. First you'd better find that or- 
ganism. 

Typing in Secret Agent 

Listing 1 is the data used to create your 
copy of Secret Agent. Please refer to the M/L 
Editor, on page 61 for typing instructions. 



by Barry Kolbe 

Secret Agent is a machine-language game and 
is loaded by using the binary load option of 
your DOS. 

How to Play Secret Agent 

To carry out your mission, you type in 
commands. There are two types of com- 
mands: single letters and sentences. The sin- 
gle letter commands are: N, S, E, W, U and 
D. Use these commands to move from room 
to room. Other single-letter commands in- 
clude "L" to look at a room, "I" to list the 
objects you are carrying, "X" to save the 
game at your current location and "R" to load 
a saved game. 

Sentences may be typed in the format 
shown in Figure 1. The parentheses indicate 
optional words and the square brackets indi- 
cate a prepositional phrase, which is needed 
at times. It is up to you to discover the verbs, 
nouns and prepositions. No spaces are al- 
lowed at the beginning of a command. 

Some command examples: 



OPEN THE DOOR 

OPEN THE DOOR WITH THE FANCY 

KEY 

Besides the regular alpha keys, only three 
other keys are accepted: CapsLock, Shift- 
Clear and Delete-Backspace. Caps allows you 



to toggle between lower- and upper-case. Do 
not press Shift with Caps! Shift-Clear clears 
the screen. Delete-Backspace is the only in- 
put editing key. One additional note: Only the 
first three letters of nouns and verbs are used 
in interpreting your command. Other words 
like "with" and "the" must be typed com- 
pletely or an error will be given. 

If your command is not valid (mostly be- 
cause the verb or noun is not in the diction- 
ary), or there is a misspelled word, the 
message "What?" will appear. Other error 
messages include "Not yet," which means 
you are on the right train of thought; "You 
can't do that," which indicates an action that 
can never be done, or at least not in the room 
you're in; and "You haven't got that," which 
means you are missing the object you tried 
to use. 

The name of each room that you enter is 
displayed on the top line of the screen. At the 
extreme right is your score. When it is 4, it 
is time to leave the lab. Every time you enter 
a room, you will be given a description of 
the room, a list of exits and a list of visible 
objects. Only the visible objects can be 
picked up (example: GET KEY). However, 
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you may be able to do something with 
things mentioned in the description. 

Technical Notes 

This program has a nice text-compression 
routine that Bryan Schappel and I developed 
for use in adventure games or possibly for 
spelling dictionaries. First each text charac- 
ter is coded into a number from to 31. Be- 
cause there are more than 32 letters and 
punctuation marks there is a second set of 32 
codes. The first code set is: 

= end of message flag 
1-26 = a-z (lowercase) 



27 
28 
29 
30 
31 



= end of text flag 
= space 

= capital letter flag 

= flag for second set of 32 



The second set of codes is: 
0-18 = '?!,-:/()0123456789 

Since the coded text uses only five of the 
eight bits available in a byte, it can be com- 
pressed. The coded text is slightly larger than 
the pure text because of capital letters taking 
two bytes for one. For example "A" is coded 
as 31,1. The compression routine then takes 
eight bytes of data and compresses them into 
five bytes. This results in quite a savings of 
memory. The text for Secret Agent was about 
2800 bytes. It compressed to a litde less than 
1900 bytes. Of course, some of that gain was 
lost by having to incorporate the uncompres- 
sion and decoding routines into the program. 

The assembly listings (Listings 2 through 
6) for Secret Agent do not contain the decom- 
pression or decoding routines. That is a 
separate file which I used from the DDT 



debugger in MAC/65. Getting the magazine 
version going was quite a chore. I had three 
separate binary files to interface: the charac- 
ter set data, the compressed text and the game 
itself. 

First, I assembled the revised program with 
the decompressor and decoder built in. Then 
I BLOADed it into MAC/65. Next, I BSAVEd 
the game portion and the character set as 
separate files. I loaded in the compressor pro- 
gram and ran it to compress the text. Then 
the text had to be BSAVEd. So now I had the 
three separate files, plus I had to add a run 
address. 

But how to get all four files together? I used 
DOS 2 to append the files to one another. 
But, whenever I tried to load in the whole 
file, the computer locked up. I finally uni- 
fied the file and then it worked. I still don't 
know why it wouldn't work before unifying it. 



What Is Next? 



There are some obvious refinements that 
can be made to this type of adventure game. 
One is to allow multiple commands for in- 
put. Sound effects would be nice also. Ad- 
ding more prepositions like "in," "on," "to," 
etc. , would make for more interesting games. 

Secret Agent was originally written in BA- 
SIC, and in that form it was 196 sectors long. 
It is now in machine language (minus sound 
effects) and only 61 sectors! The text com- 
pressor was a valuable tool for bringing down 
the size of this text adventure. I hope you en- 
joy playing it. 

Bany Kolbe is a high school math teacher 
He has been programming since 1981 on an 
Atari 800, and for the last four years, he has 
programmed mostly in 6502 assembly lan- 
guage. He is now studying GFA BASIC for his 
new ST, while perusing the C and 68000 as- 
sembly books at the bookstore. 
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leOO DflTfi 255,255,0,128,255,129,8,0,0, 

,0,0,0,0,0,0,24,4718 

1010 DflTfi 24,24,24,8,24,0,8,182,102,10 

02,0,0,0,0,0,102,5660 

1020 DflTfi 255,102,102,255,102,0,24,52, 

,96,60,6,124,24,0,0,102,8941 

1030 DflTfi 102,24,48,102,70,0,28,54,28, 

,56,111,102,59,0,0,24,7118 

1040 DflTfi 24,24,0,0,0,0,0,14,28,24,24, 

,28,14,0,0,112,4290 

1050 DfiTfi 56,24,24,56,112,0,0,102,60,2 

255,60,102,0,0,0,24,8184 

1060 DfiTfi 24,126,24,24,0,0,0,0,0,0,0,2 

24,24,48,0,0,2776 

1070 DfiTfi 0,126,0,0,0,0,0,0,0,0,0,24,2 

24,0,0,6,2018 

1080 DfiTfi 12,24,48,96,64,0,0,60,102,11 

10,118,102,60,0,0,24,8172 

1090 DfiTfi 56,24,24,24,126,0,0,60,102,1 

12,24,48,126,0,0,126,8004 

1100 DfiTfi 12,24,12,102,60,0,0,12,28,60 

0,108,126,12,0,0,126,7724 

1110 DfiTfi 96,124,6,102,60,0,0,60,96,12 

24,102,102,60,0,0,126,9906 

1120 DflTA 6,12,24,48,48,0,0,60,102,60, 

,102,102,50,0,0,60,7738 

1130 DflTfl 102,62,6,12,56,0,0,0,24,24,0 

0,24,24,0,0,0,2758 

1140 DflTfl 24,24,0,24,24,48,6,12,24,48, 

,24,12,6,0,0,0,3036 

1150 DflTfl 126,0,0,126,0,0,96,48,24,12, 

,24,48,96,0,0,60,5220 

1160 DflTfl 102,12,24,0,24,0,0,60,102,11 

10,110,96,62,0,0,30,7624 

1170 DflTfl 55,103,103,111,59,0,0,30,51, 

,115,126,115,127,0,0,30,9225 

1180 DflTfl 51,96,96,112,63,0,0,60,102,9 

99,99,99,126,0,0,30,9257 

1190 DflTfl 51,96,124,96,127,0,0,30,51,9 

96,124,96,96,8,0,30,8727 

1200 DflTfl 51,95,110,99,62,0,0,99,99,99 

9,127,99,99,0,8,127,1056 

1210 DflTfl 24,24,24,24,127,0,0,3,3,3,11 

15,54,60,0,0,103,6507 

1220 DflTfl 110,124,124,108,111,0,8,112, 

,112,96,96,99,127,0,0,99,1280 

1230 DflTfl 99,119,127,107,99,0,0,124,11 

18,118,118,118,119,0,0,28,814 

1240 DfiTfi 54,99,99,54,28,0,8,38,51,51, 

,62,48,48,0,0,28,5684 

1250 DflTfl 54,99,99,111,62,3,0,60,54,54 

4,62,51,51,0,0,30,6514 

1260 DflTfl 51,96,62,3,127,0,8,63,108,18 

88,12,12,27,0,0,51,6335 

1270 DflTfi 51,51,51,99,62,0,0,99,99,99, 

,54,60,24,0,0,99,8165 

1280 DfiTft 99,107,127,119,99,0,8,99,102 

2,60,28,54,99,0,0,99,9082 

1290 DflTfl 99,54,30,12,24,0,0,63,102,12 

2,24,51,126,0,0,30,6291 

1300 DflTfl 24,24,24,24,30,0,0,64,96,48, 

,24,12,6,0,0,120,5952 

1310 DflTfl 24,24,24,24,120,0,0,8,28,54, 

,99,0,0,0,0,0,4095 

1320 DflTfl 0,0,0,0,255,0,0,131,255,131, 

,0,24,60,126,126,60,2930 

1330 DflTfl 24,0,0,0,30,54,118,118,159,0 

0,0,96,96,124,102,102,2327 

1340 DflTfl 253,0,0,0,60,112,96,112,223, 

,0,0,6,6,62,102,102,320 

1350 DftTfl 255,0,0,0,28,54,54,28,247,0, 

,0,28,55,48,62,123,9528 

1360 DflTfl 217,28,0,0,30,51,115,222,135 

5,60,0,96,96,95,124,102,3721 

1370 DflTfl 231,0,0,24,0,24,24,126,195,0 

0, 0,28,0,28,60,111,8176 

1380 DflTfl 205,60,0,48,48,62,54,60,247, 

,0,0,24,24,24,24,24,7270 

1390 DflTfl 231,0,0,0,51,127,127,219,219 

9,0,0,0,124,102,102,102,3452 

1400 DflTfl 231,0,0,0,60,102,103,231,60, 

,0,0,0,124,102,102,124,2205 

1410 DflTfl 231,96,0,0,62,102,102,126,14 

43,14,0,0,96,126,102,102,207 8 

1420 DflTfl 195,0,0,0,14,27,51,99,223,0, 

,8,12,63,12,12,28,6762 

1430 DflTfl 247,0,0,0,115,51,51,51,223,0 

0,0,0,54,54,54,127,9630 

1440 DflTfl 205,0,0,8,99,99,107,127,221, 

,0,0,0,51,126,110,219,4069 

1450 DflTfl 177,8,0,8,27,27,31,54,207,24 

4,0,0,0,102,91,219,973 

1460 DflTA 131,62,0,24,60,126,126,24,68 

0,0,24,24,24,24,24,24,6425 
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1478 DftTft 24,24,8,126,112,124,110,102, 

,6,0,8,24,56,120,56,24,8998 

1480 DflTfl 8,0,16,24,28,38,28,24,16,0,0 

0,96,41,103,243,235,3016 

1498 DftTfl 73,164,133,7,138,234,72,46,2 

25,65,233,20,101,133,18,247,5359 

1560 DflTfl 116,50,40,65,225,189,198,44, 

,138,225,151,178,123,218,15,45,8978 

1510 DftTfl 52,26,10,224,122,101,29,100, 

,154,103,161,145,66,15,23,16,2355 

1520 DflTft 44,146,210,186,157,147,222,2 

208,122,116,124,130,114,245,79,123,137 

76 

1530 DftTfl 65,224,185,45,11,59,39,189,1 

160,245,203,58,116,174,39,94,7824 

1540 DftTfl 110,160,44,101,195,144,121,1 

1,99,46,28,131,195,9,139,66,4233 

1550 DflTfl 201,33,7,167,64,166,87,43,24 

4,15,60,198,72,202,15,13,2374 

1560 DflTfl 5,106,70,22,119,204,8,129,23 

36,124,146,14,123,230,4,64,6023 

1570 DflTfl 240,222,216,86,133,151,124,1 

192,136,30,130,31,71,247,204,8,8116 

1580 DflTfl 129,226,176,163,164,158,228, 

,142,125,243,2,32,122,109,11,25,5479 

1590 DflTfl 217,61,237,7,169,87,55,172,7 

7,134,19,148,30,115,229,68,5714 

1600 DflTfl 124,125,7,166,250,209,31,31, 

,65,226,134,116,248,250,15,92,9760 

1610 DATfl 179,167,199,208,122,176,248, 

,250,15,17,247,119,199,208,123,47,1500 



1620 DflTfl 175,80,27,23,229,239,156,250 

0,33,46,63,65,236,190,189,153,1840 

1630 DflTfl 75,242,247,215,64,105,240,13 

31,196,123,139,192,121,52,248,39,940 

1640 DflTfl 215,62,157,65,100,94,115,30, 

,160,86,87,115,160,246,95,94,7916 

1650 DflTfl 145,238,248,41,212,6,197,237 

7,16,26,115,160,241,36,248,64,9520 

1650 DflTfl 164,231,65,236,190,189,24,93 

3,240,83,163,12,165,158,133,217,1172 

1670 DflTfl 187,228,94,116,30,283,235,20 

09,133,223,5,58,119,246,136,13,9081 

1688 DflTfl 59,112,231,157,7,168,130,244 

4,184,77,39,208,208,191,47,65,9559 

1690 DflTfl 236,198,189,153,75,242,244,3 

38,283,235,288,178,69,9,51,212,1841 

1700 DflTfl 6,197,237,16,26,115,160,246, 

,95,94,204,165,235,159,68,37,9695 

1718 DflTfl 199,236,224,81,164,44,231,65 

5,228,211,224,159,95,2,187,157,1712 

1728 DflTfl 7,156,250,119,37,167,58,15,3 

38,157,187,221,248,83,166,77,9603 

1738 DATfl 57,208,123,47,175,67,34,246, 

,229,12,146,227,246,136,47,182,193 

17.18 DflTfl 58,136,61,57,67,46,116,38,11 

15,232,132,184,253,64,97,2,6831 

1750 DflTfl 186,124,232,61,151,215,163,1 

11,198,18,115,143,237,16,26,115,6735 

1760 DflTfl 168,248,61,68,23,162,101,75, 

,209,86,148,123,187,74,201,211,968 

1778 DflTfl 235,204,110,209,5,235,3,50,2 

202,124,248,58,15,81,5,237,7113 

1780 DflTfl 19,70,23,169,159,203,223,81, 

,5,239,138,99,20,116,235,205,736 

1790 DflTfl 223,9,47,249,60,19,149,212,1 

159,94,238,249,161,107,66,201,2895 

1880 DflTfl 243,160,242,105,217,135,51,2 

249,123,240,122,137,58,40,87,118,8753 

1818 DflTfl 101,29,100,154,103,175,119,6 

66,198,116,264,123,229,62,124,29,8642 

1820 DATfl 7,178,250,244,97,119,193,78, 

,200,161,39,104,128,211,157,7,9255 

1830 DATfl 178,250,244,97,119,193,78,15 

56,180,237,16,26,124,93,7,178,7528 

1848 DATA 258,244,97,119,193,78,198,5, 

,119,104,128,211,157,7,174,128,8996 

1850 DATfl 211,166,124,190,30,131,156,2 

239,134,196,141,124,231,65,234,32,1605 

5 

1860 DATfl 189,152,76,94,190,5,116,249, 

,208,122,136,44,139,240,79,161,785 

1870 DflTfl 119,124,255,59,230,243,252,1 

111,27,179,186,104,52,117,238,234,3453 

3 

1880 DflTfl 105,206,131,217,125,122,25,2 

23,183,40,100,151,31,180,65,122,6183 

1890 DATfl 112,207,173,12,215,286,131,2 

217,125,122,212,206,101,39,58,15,8065 

1900 DflTfl 7,172,12,203,46,137,129,157, 

,58,185,61,189,162,11,217,60,7296 

1910 DflTfl 79,167,67,71,181,58,44,251,1 

151,215,226,232,61,68,23,178,94 



1920 DflTfl 120,159,78,153,50,44,254,62, 

,138,180,235,83,57,150,124,232,1028 

1930 DflTfl 61,68,23,161,129,122,57,86,1 

164,44,251,151,214,66,123,139,9828 

1940 DflTfl 62,115,190,28,130,53,243,157 

7,7,168,130,244,48,47,83,62,6459 

1950 DflTfl 141,1,145,210,227,244,52,238 

8,95,95,139,160,245,16,94,153,756 

1960 DflTfl 143,124,186,153,244,172,40,2 

233,36,153,37,39,59,237,107,73,7504 

1970 DflTfl 167,57,208,123,47,175,70,135 

5,172,189,12,251,7,166,111,113,8692 

1980 DATA 73,211,134,125,153,75,9,245, 

,46,163,251,151,214,93,101,92,303 

1990 DflTfl 121,252,93,7,136,80,145,153, 

,236,130,68,134,137,123,186,210,1754 

2800 DflTfl 178,147,238,95,89,116,204,44 

4,209,206,131,217,125,122,96,165,1886 

2010 DATA 133,39,114,250,203,173,76,23 

30,151,187,157,7,178,250,244,179,5356 

2020 DflTfl 24,96,82,116,210,123,123,68, 

,23,172,8,185,208,122,117,33,7069 

2030 DATA 10,230,103,172,12,283,46,138 

8,178,157,39,209,214,157,162,36,296 

2040 DATA 250,157,29,203,235,206,131,2 

217,125,101,214,166,115,75,221,219,441 

12 

2050 DflTfl 134,125,157,70,50,206,102,17 

71,57,208,122,225,161,101,211,49,844 

2060 DflTfl 239,36,251,68,23,163,123,96, 

,25,81,165,117,57,208,123,47,6622 

2070 DflTfl 175,73,39,221,221,75,187,68, 

,23,173,172,151,158,220,52,44,9059 

2080 DflTfl 167,206,9,149,23,57,208,122, 

,101,28,139,78,248,39,43,169,6944 

2090 DflTfl 242,247,205,76,230,151,187,1 

191,87,65,222,252,227,250,59,245,6793 

2188 DATA 126,95,143,227,209,103,198,1 

16,101,44,247,203,123,4,94,131,8537 

2118 DATA 288,145,183,62,258,126,167,1 

131,233,122,157,163,251,73,103,161,279 

94 

2128 DflTfl 56,82,238,116,30,154,30,258, 

,116,52,237,288,26,124,61,7,6578 

2130 DATA 168,130,208,191,4,258,231,24 

46,79,123,121,208,122,136,47,75,190 

2148 DflTfl 49,134,9,113,251,100,214,83, 

,232,105,64,141,115,238,95,89,163 

2150 DATA 116,79,38,121,208,120,61,157 

7,10,86,118,1,113,89,209,49,5359 

2160 DflTfl 227,92,251,68,23,165,12,233, 

,210,61,242,231,55,228,211,168,4473 

2170 DATA 12,250,36,158,65,178,105,158 

8,141,238,164,158,198,20,157,157,1866 

2180 DflTfl 211,65,163,157,7,168,130,244 

4,174,164,130,225,151,180,127,104,2931 

1 

2190 DflTfl 130,247,200,11,159,98,203,22 

28,245,50,194,203,178,44,202,25,1721 

2200 DATA 13,29,48,70,150,38,153,235,1 

18,89,246,143,237,16,94,220,333 

2210 DATfl 179,167,58,15,7,164,44,215,2 

212,207,169,119,104,130,244,111,1877 

2220 DATA 147,139,46,188,221,162,11,21 

17,61,237,231,65,234,32,178,47,577 

2230 DATA 83,62,133,221,125,130,206,28 

08,34,97,123,116,209,29,26,2,5797 

2240 DATfl 153,79,157,7,131,211,61,228, 

,232,194,35,184,180,234,183,215,4455 

2258 DflTfl 187,188,65,122,88,205,157,18 

84,88,206,116,30,64,92,116,184,8979 

2250 DflTfl 253,123,187,68,23,183,11,25, 

,212,207,161,235,75,64,179,153,815 

2270 DflTfl 8,146,226,211,183,77,17,208, 

,246,108,125,57,208,122,69,39,8675 

2288 DATA 66,226,116,75,159,122,42,218 

8,143,116,258,25,23,174,40,101,7449 

2290 DATA 218,32,189,35,223,46,116,30, 

,154,10,203,22,125,104,86,94,5580 

2300 DATA 214,29,162,11,217,190,180,71 

1,110,22,51,157,7,130,238,133,8419 

2310 DATA 130,75,159,208,192,189,76,25 

50,151,116,61,24,78,94,116,30,6553 

2320 DATA 162,11,34,244,50,47,104,17,4 

48,179,248,250,52,5,50,159,6968 

2330 DATA 199,208,184,157,15,108,87,17 

7,46,63,90,17,161,46,47,58,2201 

2340 DATA 15,7,164,40,223,32,209,54,47 

7,96,192,186,157,154,105,62,8714 

2350 DATA 165,221,152,11,209,190,78,44 

4,185,208,122,136,44,139,212,207,2299 

2360 DATA 161,234,220,241,117,238,237, 

,16,94,220,44,103,58,15,7,179,7112 

continued on page 20 
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Though I've never asked the manage- 
ment, I think that the most frequent- 
ly used feature of the Atari SIG (after 
the databases) is the realtime Confer- 
ence. It's more than a gut feel- 
ing; I can log on to DELPHI at any time, day 
or night, and find someone in a conference, 
somewhere, and I've certainly spent my share 
of time getting to know people in Conference, 
people who've become friends offline, as 
well. 

And, as I've frequently mentioned in these 
pages, the Atari SIG hosts a realtime confer- 
ence each Tuesday at 10 p.m., EST. You'll 
find the conferences an excellent venue for 



bv Michael A. Banks 

sharing information about Atari computers, 
getting answers to questions, making new 
friends, etc. And it's quite a kick to be able 
to chat with people from all around the 
country— kind of like a telephone conference 
call, but cheaper and far more entertaining. 

With that in mind, I'm going to devote this 
column to Conference. I covered the basics 
of using the ATARI SIG's realtime conference 
about a year ago. But some of you may have 
missed that installment of the column, and 
some may well need a refresher in conference 
commands. 

I'll cover the basics first, and then discuss 
the "bells and whistles" of which even many 



veteran conference users are unaware (judg- 
ing by my observations in the weekly con- 
ferences). 

Conference Basics 

If you haven't yet used Conference on 
DELPHI, read this quick guide, and keep it 
handy the first couple of times you're in a 
conference. (If you are comfortable in Con- 
ference, skip ahead to the "Tricks and 
tips. . ." section.) 

Getting Tliere. To get the Atari SIG Con- 
ference area, type CONFERENCE (or just 
CO) at the Atari SIG main menu. You'll see 
the Conference Menu: 
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Uelcone to the ANALOG'S ATARI SIG 

Conference Systen 

Conference Henui 

WHO (list groups) PAGE a user 

JOIN a group NAKE nicknane 

EXIT 

CONFERENCE) 



Let's examine each 
turn. 
WHO (list groups.) 



of the commands in 



If you type WHO at 



the CONFERENCE > prompt, you'll see a 
list of everyone currently in the Atari SIG, 
similar to the list you see when you type 
WHO (or /WHO) at other SIG prompts. 
Members who are in the conference area will 
have parentheses around their names. 

In addition to the list of membernames, 
you'll see any active conference groups list- 
ed. (Yes, more than one group can exist in 



the Atari SIG Conference area.) Each listing 
will have an identifying number and— 
usually— a name. The names or assumed 
nicknames of the participants will be listed, 
as well, along with the total number of peo- 
ple currently in the SIG. Here's an example: 
Nicknames. Incidentally, you'll notice that 
two of the membernames are enclosed in 
parentheses; this indicates that these mem- 
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GROUP LISTi 82i58i58 
18) (Itari 8-bit books 

KZIN, Anda 
- idle 
ftUAILfiBLE LISTi C) : in conf 

(KZIN), (AN(iL0G2), LOUISWU, ftHAL0G4, 
KIP, DAN, PEABO, ELLENSKI 
[8 in this area] 

bers are in the Conference area, just as it does 
on tlie list you see at any other SIG prompt. 
However, while the membername KZIN ap- 
pears both on the "Available List" and in the 
Conference group, ANAL0G2 doesn't show 
up in the group, even though the parentheses 
indicates that he's in the Conference area. 

So. where is ANAL0G2, and who's Andy? 
Those questions have a simple answer: 
ANAL0G2 has assumed the nickname of 
"Andy." (You can take on any nickname you 
wish by typing /NAME and the name you 
wish to use. Your name is automatically reset 
to your membername when you leave a con- 
ference group.) 

JOIN a group. Typing JOIN puts you in an 
existing group, or creates a new one. 

To join a conference group, type JOIN M- 
lowed by the number or the first few letters 
of the group name. (In the example above, 
you could type JOIN 1 or JOIN ATARI to 
enter the existing group.) 

If you type a number or name other than 
that of a group on the list, you'll create a new 
group. For example, type JOIN 3 or JOIN 
COMPUTING, and you'll have created a 
group that others can join. (The only excep- 
tion to this is if the number is already as- 
signed to a group in another SIG or 
Conference area; you'll then be informed that 
your group cannot begin with that number.) 

PAGE a user. If you wish to invite another 
member who's online anywhere on DELPHI 
to join your group, type PAGE, followed by 
the name of the member. 

If you're in the Conference area but not in 
a group, and the member comes to the Con- 
ference area and accepts your page, a group 
will be created for you, its number automat- 
ically assigned as its name. 

To cancel a page, type /CANCEL. If you're 
paged and don't wish to accept, type 
/REJECT. 

NAME nickname. Some members feel 
more comfortable using a nickname (or their 
real name) in conference, rather than their 
usernames. The NAME command, as ex- 
plained earlier, can be used to change your 
name (as displayed before your comments in 
a conference group) to whatever you wish. 
(There is no difference between NAME at the 
menu and /NAME as used within a confer- 
ence group.) 

EXIT. This one is, I think, obvious. It 
returns you to the Atari SIG menu. 

HELP. Yes, the ubiquitous HELP com- 



mand, though not listed on the menu, is avail- 
able in Conference. Type HELP at the 
Conference menu for a listing of available 
commands. Type /HELP while in a confer- 
ence group for the same list. In either case, 
if you follow the command with the name of 
a command from the list, you'll get detailed 
information on how to use the command in 
question. 
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Note that any of the commands just dis- 
cussed can be used when you're in a confer- 
ence group. They must be preceded by a slash 
(/), as must all conference commands. For 

more information, type HELP at the 
CONFERENCE > prompt, or /HELP whife 
you are in a conference group. 
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Now, let's look at what you can do while 
you're in a conference group. First, a look 
at what it looks like to be in conference: 

Hi, Andy, How's the new job going? 
KZIN) Hi, Andy, How's the new job going? 
Great— glad to hear it! 
KZIN) Great-glad to hear it! 

That's what you would see in a conference, 
from KZIN's viewpoint. Notice that the lines 
KZIN (that's me) typed are displayed twice: 
once as I typed them, and then again to the 
conference at large. I find this to be a help- 
ful feature; it allows me to edit my lines as 
I type them. However, some users find the 
double display confusing, and/or use software 
with a "chat window," which allows them to 
edit their comments before sending them to 
DELPHI. Those who don't like the double 
display can turn off the second display by typ- 
ing /NOREPEAT while in conference. 

Getting Out. Okay, now what do you do 
to leave a conference? You have four options: 

Type /EXIT and you'll be returned to the 
Conference menu. 

Enter Control-Z and you'll be returned to 
the Conference menu. 

Enter Control-C and you'll leave the con- 
ference group, bypass the Conference menu 
entirely and go directly to the Atari SIG main 
menu. 

Type /BYE and you'll be logged off DEL- 
PHI (a convenient time saver). 



Tficb and Tips and 
A Little Madness 

Now for the good stuff. You know the var- 



ious ways to get into and out of a conference, 
and the basics of what you can do while out 
or in. Here are some of the more useful and 
fun options available to you in a conference 
group. 

Who's really who. I've already explained 
how you can adopt a nickname in Confer- 
ence. But, you may wonder, is there any way 
to find out who's behind a nickname? Indeed 
there is; DELPHI provides several ways to 
"unmask" people in conference. 

If you want to match all conference group 
member's nicknames to their real member- 
names, you can do so by typing /SHOWRN. 
When you do this, each nickname will auto- 
matically be preceded by the membername 
of the person using it. Turn this feature off 
with /NOSHOWRN. 

The double-name display makes for 
difficult reading, however, and you don't real- 
ly have to use it if all you want to see is the 
membername of one person using a nick- 
name. Rather than set /SHOWRN, then, you 
can type /RN followed by a nickname, and 
DELPHI will reveal the identify of that 
person. 

Once you have a member's membername, 
you can type /WHOIS followed by the name 
to see if he/she has entered anything about 
himself in PEOPLE. Or, you can cleverly 
type /EN and the membername to see that 
member's name as he/she entered it on join- 
ing the SIG. 

Group names. As previously described, 
you can create a group with any name you 
wish. Once you're in a group, you can change 
the name to anything you wish by typing the 
command /GNAME followed by the desired 
name. (There's a 32-character limit on 
names.) I don't recommend that you do this 
on the Tuesday night conferences, however. 

Making a group private. There may be oc- 
casions when you wish to keep a conversa- 
tion private. This is easily done; simply type 
/GPRIVATE, or create/change the name of 
a conference group to one with the word "pri- 
vate" in it. This locks out anyone else from 
joining the group unless you page them, 
change the group name to something without 
the word "private" in it, or reverse the Pri- 
vate setting with /NOGPRIVATE. 

Password protection. You can also make a 
group private by setting a password for en- 
try. Type /GRASS and a password of your 
choice, and nobody will be able to enter the 
group without setting the same password for 
themselves at the Conference menu. (You can 
communicate the password to "outsiders" 
with the /SEND message feature.) 

Private asides. Want to make a private (or 
snide) remark to just one or two people in 
a conference with you, without everyone else 
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seeing it? Use the /SEND command (type 
/SEND < membername(s) > < message >. 
Separate multiple membernames with 
commas). 

Make sure there are no spaces or charac- 
ters preceding the /SEND, by the way; if the 
"/" isn't at the beginning of the line, your 
"private" comment will be displayed for all 
to see. It's great entertainment for others in 
the group, but quite embarrassing for you! (I 
generally type / alone to make sure the line 
is clear, as it were, before typing a /SEND.) 

Ignoring the obnoxious. Speaking of those 
private asides, you'll be glad to know that you 
can turn 'em off if you wish. . . 

As a matter of fact, you can turn off another 
member completely, at least from your view- 
point. Let's face it: you'll occasionally run 
into an obnoxious person— even on DELPHI. 
If this happens to you, you don't have to see 
that person's remarks. Simply type 
/SQUELCH and the name of the bothersome 
user, and you will see neither comments nor 
/SENDs from that person. (You will, in ef- 
fect, have squelched the user; that's why it's 
called SQUELCH.) To remove squelches, 
type /NOSQUELCH, alone or followed by 
a membername. 

Seeing what 's in your workspace. Want to 
check your Workspace directory while you're 
in conference? It's easily done— just type 
/DIR * . * to see a listing of every file in 
your Workspace. Alternatively, you can 
replace one of the wildcards with a filename 
or extension. The directory is displayed to 
you only.. 

Displaying a file. And why would you want 
to view a Workspace directory? Well, to see 
what you can show off, for one thing. An in- 
teresting but little-known Conference feature 
is the ability to display a text file from your 
Workspace. (Brief files recommended!) Sim- 
ply type /DISPLAY and the name of the file, 
and the file will be "typed" to the screen one 
line at a time. 

To pause or stop the display, type 
/NODISPLAY. 

For the record. If you'd like to keep a 
record of a conference, you can, of course, 
capture it on disk as you go (provided your 
software accommodates this). However, 
DELPHI can handle this chore for you; type 
/LOG with or without a file name, and every- 
thing that is typed in the conference (even pri- 
vate /SENDS to and from you) will be 
recorded in a Workspace file. This is useful 
if you want to E-Mail a log of the conference 
to someone else, or simply to avoid delays 
during the conference while your software 
writes to disk (you can download the log from 
your Workspace). 

To terminate logging, type /NOLOG, or 
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exit Conference. 

Keeping it quiet. You'll notice that your 
computer beeps a lot when you're in a con- 
ference group. Whenever anyone enters or 
leaves, when someone /SENDs you a private 
line, or at certain other times, DELPHI sends 
a Control-G to your computer— to which 
almost every system responds by beeping its 
speaker. This can get quite annoying, but is 
easily overcome: simply have your commu- 
nications software filter out Control-G. 

Switching groups. Once you're comforta- 
ble with talking in conference, you might 
want to try talking in more than one group 
at a time. It's quite a challenge, more than 
a little fun, and easy to do. If you see two 
conference groups when you type /WHO, you 
can join the one you're not in by typing /J 
and the number of that group; you'll exit your 
current group and pop up in the other group. 

Two at once. However, if you want to keep 
your place in the first group, you can do so 
by typing /T and the number of the second 
group. Whatever you type will be displayed 
in the second group, but, while those in the 



Make the 
DELPHI Connection! 

As a reader of ANALOG Computing, you 
are entitled to take advantage of a special 
DELPHI membership offer. For only $19.95 
plus postage and handling ($30 off the stan- 
dard membership price!), you will receive a 
lifetime subscripfion to DELPHI, a copy of 
the 500-page DELPHI: The Official Guide by 
Michael A. Banks and a credit equal to one 
free evening hour at standard connect rates. 
Almost anyone worldwide can access DEL- 
PHI (using Tymnet, Telenet or other net- 
working services) via a local phone call. 
Make the DELPHI connection by signing up 
today! 

To join DELPHI: 

1. Dial 617-576-0862 with any terminal or PC 
and modem (at 2400 bps, dial 576-2981). 

2. At the Usemame prompt, type 
JOINDELPHI. 

3. At the Password prompt enter ANALOG. 

For more information, call DELPHI Mem- 
ber Services at 1-800-544-4005, or at 
617-491-3393 from within Massachusetts or 
from outside the U.S. 

DELPHI is a service of General Videotex 
Corporation of Cambridge, Massachusetts. 



first group won't be able to see what you type, 
you will be able to see what they type! It gets 
a little crazy, but, fortunately, everyone's 
comments are preceded by the number of the 
group in which they're currently residing. 

To switch back to your original group, type 
/T and its number, and your comments will 
be displayed there. (And you'll still be able 
to see what's said in the second group.) 

To end the madness and resume with one 
group, use the IT command to make sure 
you're in the group you don't want to be in, 
then type /EXIT or Control-Z; you'll resume 
with the other group— only. 

Conference Games 

Dice. Are you a high roller? If so, type 
/ROLL next time you're in a conference 
group; you'll be pleasantly surprised. Then 
type /HELP /ROLL for full instructions on 
how to specify how many multiple-sided dies 
to roll, and more. 

SCRAMBLE. You may have seen some al- 
lusions to something called SCRAMBLE 
when logging on or off DELPHI. If you're 
wondering what it is, you might drop into 
DELPHI'S main Conference area, or the 
Conference area in the Science Fiction, Color 
Computer, C*SIX, or PC SIG to see what 
it's about. 

SCRAMBLE is a fun, fast and fascinating 
word game that tests your eye for picking 
words out of a block of letters. Here's a 
sample: 

A H E Y 

R A LF 

EK I M 

DEES 

How many words can you pick out? Quite 
a few? Try limiting yourself to 90 seconds 
and having to type the words in (with maybe 
a competitor or two online with you), and 
you'll have some idea of what SCRAMBLE 
is like. 

After you enter a conference area that hosts 
SCRAMBLE, type JOIN SCRAMBLE. Full 
directions are displayed when you enter the 
game, and high scorers' membernames are 
posted. 
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That's it for now. See you in Conference! 

In addition to science fiction novels and 
books on model rocketry and other topics, 
Michael A. Banks is the author o/DELPHI: 
The Official Guide and The Modem Refer- 
ence, both from Brady Books. You can write 
to him via E-mail on DELPHI to member- 
name KZIN. Fl 




Have you ever botn so frustrated by a com- 
puter adventure game that you actually sat 
down and mappeq the dungeon by hand? If 
you have, this program may be just what you 
need. J 

After playing computer fafliasy games for 
hours on end and gafirig nowhere, I set out 
to see exactly how thV data for the maps the 
games used was stored\)n the disks. The pro- 
gram began as a simply machine-language 
routine that loaded a se^or from the disk, 
coupled with a BASIC routine that loaded the 
sectors one by one into aWring, and then 
printed the entire lump of dm.out together. 
That program, after mucjf hail-pulling and 
gnashing of teeth, evolvecl into tl^e demo pj-o- 
gram you see here. I used a disk ^itor to fipd^ 
the likely location of tjhe data on t^e disk a^d 
by trial and error prociuced the filteV^ta usad 
to make the map^'fegible. ^\ I 

Once the filter' began to work properK I 
realized that a \yast majority of the runtinM^' 
was taken up by ihe then-BASIC filtering roj' 
tine. To correct that large problem, I resoi 
ed to a short assembly language program that 
alters the sectors ,m memory inmiediately ~ 
ter they are load^, and then stores the nc 
data in a string fdy later use. 
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For this example, I have chosen the pro- 
gram Ultima III by Lord Briiishpnd Omgin 
Systems, as the maps it uses4end themselv 
very we^l to this method of-printing'! With that) 
information-Out of the way, let i^s^examine the\ 
program itself / 



Runninpme Prs'^ran^ 

The progranrfequires^oTie disk drive, vir- 
tually any punter and the player disk from 
, Ultima in. 0nce you have typed the program 
(using BASIC Editor Ilx)n"page 54 to check 
your work), run it an^l'the program "Will be- 
gin isy initializing the extensive machjne- 
.latiguage data for all the subroutines. After 
initialization the program will ask you to in- 
sert the player disk you wish to print from, 
and once satisfied, it will read the first sec- 
tor of the disk to determine if the disk is in 
proper format. 
1^ Then a series of easy-to-follow menus will 
- appear and direct you through the printing 
process^^The program will allow you to print 
any of the cities, the two continents, the dun- 
geons or a 'h^ndy legend for interpretation 
purposes. The dusgeQn secJ:yja,Qi%'pi1fifsiTienu, ani 
one level at a time, so after printing a level 



to move to the next level 
and print it. Since most of the maps— the 
dungeons in particular— look better in em- 
phasized or double-strike print, I suggest that 
you insert a control code for your own printer 
into the program, eiither at the beginning or 
n the line I left iiVthe dungeon section. 



Program Explanation 

Linfes through 85 servejro set up the var- 
ious stmngs and load the-required data. Lines 
1000 thnpugh 1070 contain the main menu and 
choice ehtn' code.^Lines 2000 through 2095 
contain the^ty ;nenu, and after checking the 
entry in Linesj 2100 and 2105, the program 
calculates the tarting sector number in Line 
2110 and begi is the loading process. Once 
each sector h is been loaded, it is filtered, 
copied into C' TY$, and then the next one is 
loaded. The p int section outputs 64 charac- 
ters at a time since the cities and continents 
are 64 x 64 souares. Upon completion of the 
printing, the program returns to the city menu 
to begin anew\ 

Lines 3000 f _ „ 

calculates the sector lo- 
continued on page 64 
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2370 DATA 25,92,145,246,9,29,105,34,24 

45,1,113,231,215,187,180,65,607 

2388 DATA 122,80,206,157,184,88,206,13 

33,196,232,123,54,137,133,235,18,1523 

2390 DATA 89,246,143,237,16,94,220,179 

9,167,58,15,13,5,106,70,22,3319 

2400 DATA 79,172,73,122,247,118,136,47 

7,104,17,48,179,231,125,68,22,6708 

2410 DATA 69,248,39,208,246,119,77,6,1 

142,139,61,162,11,210,61,242,9608 

2420 DATA 231,65,230,61,235,159,72,23, 

,28,178,125,103,212,187,168,44,9773 

2430 DATA 139,206,131,212,65,100,94,16 

66,125,15,80,246,23,174,40,101,7191 

2440 DATA 218,32,189,185,103,78,145,23 

39,151,58,15,81,5,145,122,153,7388 

2450 DATA 244,61,27,195,78,160,46,58,9 

92,126,189,221,15,80,247,175,452 

2460 DATA 157,7,168,130,200,189,76,250 

0,23,119,193,245,60,31,75,201,336 

2470 DATA 239,213,246,125,62,199,139,2 

209,189,176,173,11,47,143,164,146,1427 

7 

2480 DATA 108,94,133,196,236,36,151,80 

0,178,234,11,34,243,160,240,123,2490 

2490 DATA 4,62,143,249,10,230,6,71,44, 

,187,34,206,147,235,221,208,3039 

2500 DATA 245,129,23,104,17,48,188,232 

2,60,30,145,239,151,82,238,209,2361 

2510 DATA 5,233,67,58,118,225,99,57,20 

08,122,136,47,77,89,57,52,5589 

2520 DATA 172,139,209,189,211,76,233,6 

62,188,221,15,72,89,175,161,113,752 

2530 DATA 58,30,140,34,75,139,78,116,3 

30,15,100,241,62,157,61,67,5290 

2548 DATA 34,79,180,65,122,92,38,147,2 

231,65,224,247,236,251,250,151,7041 

2550 DATA 13,29,66,78,142,140,34,75,13 

39,78,166,125,75,187,68,23,5857 

2560 DATA 163,124,156,89,115,160,243,3 

31,73,245,230,236,139,52,206,133,3501 

2570 DATA 148,250,23,19,163,66,97,62,1 

141,149,165,11,46,209,5,237,7846 

2588 DATA 2,38,22,124,232,61,68,22,69, 

,234,103,208,244,76,169,122,711 

2598 DATA 42,210,143,119,69,158,209,5, 

,233,30,249,115,160,240,122,208,3867 

2600 DATA 184,236,41,59,39,137,244,235 

5,18,89,245,238,237,16,94,153,1986 

2610 DATA 143,124,185,208,120,61,33,66 

6,78,134,5,235,18,89,245,238,9993 

2620 DATA 237,16,94,153,143,124,185,20 

08,122,136,44,139,212,207,161,236,4656 

6 

2630 DATA 194,98,245,5,145,121,208,108 

8,0,48,64,67,32,91,61,32,2651 

2648 DATA 194,65,76,186,58,112,112,96, 

,66,98,48,16,66,0,140,2,1614 

2650 DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2, 

,2,2,2922 

2660 DATA 2,2,2,2,2,65,9,48,0,40,80,12 

20,160,200,240,24,5111 

2670 DATA 64,104,144,184,224,8,48,88,1 

128,168,208,248,32,72,112,0,7518 

2680 DATA 0,0,0,0,0,0,1,1,1,1,1,1,2,2, 

,2,2,2853 

2690 DATA 2,2,2,3,3,3,0,0,0,0,8,0,0,0, 

,0,0,2747 

2700 DATA 0,0,0,0,0,0,0,0,0,8,0,0,0,0, 

,0,0,2700 

2710 DATA 0,8,0,0,51,35,47,50,37,26,0, 

,16,0,0,64,0,5649 

2720 DATA 32,96,63,21,18,58,42,56,61,5 

57,13,1,5,0,37,35,6851 

2730 DATA 8,10,47,40,62,45,11,16,46,22 

2,43,23,33,34,32,52,7444 

2740 DATA 12,118,32,46,44,126,155,125, 

,72,169,0,133,20,165,20,240,6973 

2758 DATA 252,104,96,160,8,152,153,0,1 

148,153,0,141,153,8,142,153,7179 

2760 DATA 0,143,200,288,241,32,151,51, 

,96,164,84,185,44,48,24,105,6272 

2770 DATA 0,133,182,185,67,48,105,140, 

,133,183,95,165,84,201,17,144,9328 

2780 DATA 58,169,0,133,176,169,140,133 

3,177,169,40,133,178,169,140,133,1873 

2790 DATA 179,162,0,160,39,177,178,145 

5,176,135,16,249,165,179,133,177,3182 

2888 DATA 165,178,133,176,24,185,48,13 

33,178,155,179,185,8,133,179,232,1258 

2818 DATA 224,23,144,223,198,84,198,28 

82,76,223,48,96,32,41,49,29,5683 

2820 DATA 138,48,166,187,96,72,42,42,4 



42,42,41,3,134,187,170,104,5693 

2830 DATA 41,159,96,173,252,2,201,255, 

,240,249,162,255,142,252,2,162,6376 

2840 DATA 25,221,134,48,240,24,282,16, 

,248,162,5,221,160,48,240,5,9778 

2850 DATA 202,16,248,48,17,189,166,48, 

,76,129,49,76,55,49,138,24,4065 

2860 DATA 109,190,2,76,129,49,201,60,2 

208,241,173,190,2,201,97,240,3085 

2870 DATA 8,169,97,141,190,2,76,55,49, 

,169,65,208,246,160,127,140,930 

2880 DATA 31,208,162,8,282,288,253,136 

6,16,245,96,134,180,132,181,160,3683 

2890 DATA 0,177,180,201,255,208,1,96,3 

32,205,48,160,0,132,200,177,352 

2900 DATA 188,153,8,133,200,201,0,208, 

,4,230,200,208,5,192,38,208,1471 

2910 DATA 238,136,177,180,201,32,240,5 

5,136,208,247,160,37,280,132,189,3814 

2920 DATA 169,0,153,0,133,152,24,101,1 

180,133,180,144,2,230,181,168,1280 

2938 DATA 2,185,254,132,240,11,32,32,4 

49,145,182,32,172,48,200,208,9851 

2940 DATA 240,32,243,49,165,208,208,3, 

,76,156,49,32,223,48,96,230,9532 

2950 DATA 84,169,2,133,85,96,32,205,48 

8,164,85,136,169,30,145,182,9118 

2960 DATA 162,0,134,186,169,80,133,201 

1,165,85,133,203,165,84,133,282,2914 

2970 DATA 32,205,48,32,176,50,32,55,49 

9,201,155,240,36,201,126,240,1576 

2980 DATA 53,201,125,240,43,166,186,22 

28,201,176,235,72,32,143,50,166,1949 

2990 DATA 186,104,201,96,144,3,56,233, 

,32,157,0,132,230,186,76,26,7957 

3000 DATA 50,166,186,157,0,132,32,133, 

,50,32,243,49,32,223,48,96,6473 

3010 DATA 32,183,48,76,250,49,165,85,1 

197,203,208,18,165,84,197,202,3050 

3020 DATA 240,28,32,133,50,198,84,169, 

,39,133,85,76,119,50,32,133,5705 

3838 DATA 50,198,85,32,205,48,169,63,1 

164,85,145,182,198,186,76,26,9698 

3040 DATA 50,32,205,48,164,85,169,8,14 

45,182,96,72,32,205,48,104,7189 

3050 DATA 32,32,49,164,85,145,182,230, 

,85,165,85,201,40,208,9,169,391 

3060 DATA 2,133,85,230,84,32,223,48,32 

2,176,50,96,32,205,48,169,7528 

3070 DATA 63,164,85,145,182,96,169,97, 

,141,190,2,169,128,141,244,2,290 

3080 DATA 32,183,48,169,9,141,48,2,169 

9,48,141,49,2,169,62,141,5259 

3090 DATA 47,2,169,0,141,45,62,141,46, 

,62,133,204,32,151,51,162,7017 

3100 DATA 116,160,117,32,143,49,162,14 

41,160,117,32,143,49,238,84,32,7593 

3110 DATA 160,51,32,250,49,169,1,141,3 

31,63,173,1,132,201,155,208,9869 

3128 DATA 187,173,0,132,162,5,221,203, 

,61,240,5,282,16,248,48,49,8724 

3130 DATA 134,199,32,97,60,172,45,62,1 

185,34,63,24,101,199,168,185,8854 

3140 DATA 71,62,16,10,162,159,160,113, 

,32,143,49,76,246,50,141,45,7113 

3150 DATA 62,201,33,208,3,76,55,61,32, 

,160,51,32,195,60,76,246,7173 

3168 DATA 50,201,73,208,6,32,223,59,76 

6,246,50,281,76,208,6,32,7526 

3170 DATA 204,51,76,246,50,201,88,288, 

,6,32,229,64,76,246,50,201,483 

3180 DATA 82,208,9,32,73,65,32,160,51, 

,76,246,50,32,163,52,165,6735 

3198 DATA 196,248,10,162,65,160,113,32 

2,143,49,76,246,50,165,192,10,8441 

3288 DATA 178,189,283,66,141,146,51,18 

89,284,66,141,147,51,32,255,255,2898 

3210 DATA 76,246,50,169,1,133,84,133,8 

85,230,85,96,160,24,169,0,7162 

3220 DATA 153,90,48,136,16,250,173,45, 

,62,10,170,189,223,61,133,182,848 

3230 DATA 189,224,61,133,183,160,0,177 

7,182,240,9,32,32,49,153,92,7263 

3240 DATA 48,200,208,243,32,204,51,96, 

,32,115,53,32,74,52,32,214,5792 

3250 DATA 51,96,162,0,189,56,113,157,0 

0,132,232,224,9,208,245,160,3131 

3260 DATA 0,185,48,62,205,45,62,240,49 

9,200,192,23,208,243,224,9,2110 

3270 DATA 240,18,169,32,157,254,131,16 

69,0,157,255,131,162,0,168,132,1324 

3280 DATA 32,143,49,96,160,0,185,47,11 

13,157,0,132,240,4,232,200,627 
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3290 DftTfl 268,244,162,9,168,132,32,143 

3,49,96,152,72,18,168,185,184,9578 

3300 DfiTA 64,133,183,185,183,64,133,18 

82,160,0,177,182,248,7,157,9,9749 

3310 DATft 132,232,288,288,245,169,44,1 

157,8,132,169,32,232,157,8,132,39 

3320 DftTft 232,104,168,76,237,51,162,9, 

,189,183,113,157,0,132,232,224,2763 

3330 DftTft 15,208,245,172,45,62,185,34, 

,63,168,169,8,133,186,132,199,951 

3340 DftTft 185,71,62,48,29,132,199,165, 

,186,10,168,185,33,62,133,182,9741 

3350 DftTft 185,34,62,133,183,160,0,177, 

,182,157,0,132,240,4,232,200,2260 

3360 DftTft 208,245,164,199,230,186,200, 

,165,186,201,6,208,209,169,32,157,4653 

3 

3370 DftTft 254,131,169,9,157,255,131,16 

62,0,160,132,32,143,49,96,162,8934 

3380 DftTft 0,134,190,134,192,134,193,13 

34,197,134,198,134,196,169,69,133,3917 

7 

3398 DftTft 182,169,63,133,183,166,199,1 

168,8,177,182,221,8,132,288,8,672 

3400 DftTft 232,200,192,3,208,243,249,22 

2,230,192,165,182,24,105,3,133,918 

3410 DftTft 182,144,2,230,183,165,192,29 

01,18,208,218,230,196,96,189,0,3790 

3428 DftTft 132,201,155,240,246,201,32,2 

240,3,232,208,242,32,40,53,32,9781 

3430 DftTft 53,53,32,40,53,32,184,53,176 

6,225,165,193,133,194,189,0,1259 

3440 DftTft 132,201,155,208,1,96,201,32, 

,240,3,232,208,241,232,134,190,6184 

3450 DftTft 32,40,53,32,72,53,32,40,53,3 

32,53,53,32,184,53,165,3514 

3460 DftTft 193,133,195,96,189,0,132,201 

1 , 32, 208 ,3,232,208 , 246, 134 , 190,4748 

3470 DftTft 96,160,0,185,219,61,221,0,13 

32,208,8,232,200,192,4,208,2450 

3480 DftTft 242,134,190,96,166,190,160,9 

0,189,0,132,217,209,61,208,11,658 

3490 DftTft 232,200,192,5,208,242,230,19 

5,32,143,49,173,10,210,201,180,2247 

4350 DftTft 144,8,162,218,160,115,32,143 

3,49,96,169,0,76,74,60,201,8126 

4360 DftTft 9,240,3,76,89,55,162,36,169, 

,5,32,8,59,173,29,63,3929 

4370 DftTft 240,3,76,250,55,173,17,63,24 

40,174,173,18,218,281,165,144,4826 

4388 DftTft 8,169,8,141,17,63,76,118,55, 

,162,161,158,115,32,143,49,7987 

4390 DftTft 173,18,219,291,150,176,8,162 

2,29,168,116,32,143,49,96,169,9385 

4488 DftTft 1,76,74,60,228,194,208,16,19 

36,195,208,17,185,48,62,201,2332 

4410 DftTft 128,208,23,165,198,240,6,96, 

,104,104,76,82,59,104,104,173,9270 

4420 DftTft 31,63,240,3,76,250,55,76,89, 

, 55,104 ,104,76,17,57,173, 6774 

4430 DftTft 45,62,201,13,208,24,165,194, 

,201,38,208,18,173,16,63,240,1096 

4440 DftTft 13,73,1,141,16,63,169,13,141 

1,65,62,76,118,55,162,57,6070 

4450 DftTft 160,115,32,143,49,96,173,45, 

,62,201,15,208,40,165,194,201,2085 

4460 DftTft 41,240,3,76,89,55,173,21,63, 

,240,18,73,1,141,21,63,4799 

4470 DftTft 169,147,141,13,67,169,122,14 

41,14,67,76,118,55,162,71,160,8395 

4480 DftTft 113,32,143,49,96,201,27,208, 

,218,165,194,201,27,288,212,173,6190 

4490 DftTft 23,63,240,233,73,1,141,23,63 

3,169,29,141,238,62,76,118,9091 

4500 DftTft 55,173,45,62,201,7,208,25,16 

65,194,201,39,208,8,169,0,9442 

4510 DftTft 141,14,63,76,224.57,201,40,2 

240,3,76,89,55,169,1,208,8879 

4520 DftTft 239,201,29,208,245,165,194,2 

201,40,208,239,169,30,141,247,62,5419 

4530 DftTft 169,255,141,245,62,32,224,57 

7,76,118,55,162,0,189,37,113,8560 

4540 DftTft 157,0,132,232,224,10,208,245 

5,160,0,185,48,62,201,128,208,3536 

4550 DftTft 41,152,72,10,168,185,183,64, 

,133,182,185,184,64,133,183,160,4153 

4560 DftTft 0,177,182,240,7,157,0,132,23 

32,200,208,245,169,44,157,0,2937 

4570 DftTft 132,232,169,32,157,0,132,232 

2,104,168,200,192,23,208,203,224,6326 

4580 DftTft 10,208,17,160,0,185,47,113,1 

157,0,132,232,200,192,10,208,2455 

4599 DftTft 244,76,66,69,169,8,157,255,1 



131,169,32,157,254,131,162,9,2879 

4689 DftTft 168,132,32,143,49,96,18,179, 

,189,58,67,168,189,49,67,178,9765 

4618 DftTft 32,143,49,162,179,168,116,32 

2,143,49,76,138,61,173,45,62,7797 

4620 DftTft 201,26,208,46,173,38,63,208, 

,1,96,32,163,52,165,196,208,1362 

4530 DftTft 9,165,192,201,10,208,3,76,81 

1,58,173,10,218,281,288,144,2456 

4548 DftTft 5,169,0,76,74,68,162,218,168 

8,115,32,143,49,184,104,76,8422 

4650 DftTft 246,50,201,9,208,40,173,29,6 

63,208,35,173,17,63,240,30,8649 

4660 DftTft 32,163,52,165,196,208,9,165, 

,192,201,10,208,3,76,81,58,9035 

4678 DftTft 173,18,218,201,130,176,7,184 

4,184,169,1,76,74,68,96,173,8443 

4688 DftTft 45,62,281,5,288,11,173,14,63 

3,248,5,169,5,76,74,68,6158 

4698 DftTft 96,281,23,288,18,173,24,63,2 

248,246,169,2,76,74,60,281,492 

4788 DftTft 17,288,10,173,27,63,288,232, 

,169,4,76,74,60,201,18,208,157 

4710 DftTft 10,173,28,63,240,218,169,3,7 

76,74,60,201,30,208,209,173,2818 

4720 DftTft 25,63,240,204,169,6,76,74,68 

8,169,8,141,47,62,168,4,6277 

4738 DftTft 185,58,62,281,128,248,22,136 

6,16,246,173,60,62,281,128,208,3438 

4740 DftTft 3,206,47,62,173,47,62,9,16,1 

141,127,48,96,238,47,62,7001 

4750 DftTft 76,27,61,162,205,160,116,32, 

,143,49,230,84,173,47,62,201,1132 

4760 DftTft 4,208,10,162,16,160,117,32,1 

143,49,76,78,61,162,179,160,9828 

3920 DftTft 168,185,48,62,201,128,240,8, 

,162,101,160,113,32,143,49,96,8640 

3930 DftTft 165,194,201,3,240,16,201,9,2 

240,20,201,12,208,24,162,204,1322 

3940 DftTft 160,114,32,143,49,96,162,111 

1,160,114,32,143,49,96,162,152,9330 

3950 DftTft 160,114,32,143,49,96,162,248 

8,160,114,32,143,49,96,173,45,8889 

3960 DftTft 62,201,5,208,26,162,2,160,30 

0,32,220,56,169,5,141,53,6579 

3970 DftTft 62,169,255,141,50,62,206,46, 

,62,32,129,59,76,118,55,201,7817 

3980 DftTft 11,208,20,162,0,160,30,32,22 

20,56,169,11,141,54,62,169,7295 

3990 DftTft 255,141,48,62,76,90,56,201,1 

12,208,20,162,16,160,34,32,5661 

4600 DftTft 220,56,169,12,141,59,62,169, 

,255,141,64,62,76,90,56,201,9189 

4010 DftTft 18,208,20,162,15,160,44,32,2 

220,56,169,255,141,63,62,163,559 

4820 DftTft 21,141,182,62,76,90,56,201,2 

20,208,20,162,4,160,43,32,5910 

4030 DftTft 220,56,169,20,141,62,62,169, 

,255,141,52,62,76,90,56,201,9137 

4040 DftTft 21,208,18,162,12,160,42,32,2 

220,56 ,169,21, 141,61 , 62 , 141, 7273 

4050 DftTft 60,62,76,90,56,76,89,55,228, 

,134,208,16,136,195,208,12,1683 

4060 DftTft 183,48,62,201,128,208,15,165 

5,197,240,16,96,162,25,160,114,829 

4070 DftTft 32,143,43,104,104,36,104,104 

4,76,17,57,104,104,76,250,55,7382 

4080 DftTft 165,194,201,18,208,28,173,66 

6,62,201,128,240,8,162,101,160,1558 

4090 DftTft 113,32,143,49,96,169,0,141,2 

25,63,162,40,160,114,32,143,7075 

4100 DftTft 43,36,201,8,208,20,173,56,62 

2,201,128 , 208 , 224,163, , 141,1801 

4110 DftTft 28,63,162,130,160,115,32,143 

3,49,96,76,89,55,173,45,62,6237 

4129 DftTft 201,19,208,17,165,194,201,24 
4,240,3,76,89,55,169,20,141,8370 

4130 DftTft 188,62,76,118,55,201,24,268, 
,17,165,194,201,23,208,235,173,4308 
4140 DftTft 24,63,73,1,141,24,63,76,224, 
,57,201,14,240,243,201,10,1157 

4150 DftTft 240,245,201,9,208,212,165,19 

34,201,23,208,206,169,0,141,29,2113 

4160 DftTft 63,32,224,57,163,32,141,126, 

,62,76,110,55,173,45,62,281,8528 

4170 DftTft 15,208,55,173,21,63,208,6,16 

65,194,201,25,240,3,76,50,8483 

4180 DftTft 58,173,67,62,201,128,240,3,7 

76,17,57,173,22,63,208,3,6403 

4190 DftTft 76,129,59,73,1,141,22,63,163 

3,15,141,63,62,162,80,160,7314 

4200 DftTft 115,32,143,43,32,224,57,76,1 

118,55,201,16,208,208,165,134,2725 
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•• 






4210 DflTfl 201,25,208,202,173,27,63,73, 

,1,141,27,63,162,68,160,115,7715 

4220 DATA 32,143,49,96,165,194,201,19, 

,208,15,173,67,62,201,128,208,2214 

4230 DftTfl 19,162,97,160,115,32,143,49, 

,96,201,6,208,18,173,54,62,7558 

4240 DftTfl 201,128,240,3,76,17,57,162,4 

49,160,118,32,143,49,96,162,7906 

4250 PflTfl 233,160,113,32,143,49,96,166 

6,194,189,48,62,201,128,240,3,1240 

4260 DflTft 76,17,57,224,6,208,7,173,45, 

,62,201,23,240,8,162,73,8490 

4270 DATA 168,114,32,143,49,96,173,26, 

,63,73,1,141,26,63,240,8,5514 

4280 DATA 169,255,141,211,62,76,118,55 

5,169,16,208,246,96,169,0,141,1049 

4290 DATA 31,63,165,194,201,26,208,11, 

,169,1,133,198,169,5,133,195,1175 

4300 DATA 76,121,58,201,36,240,241,165 

5,194,201,5,208,8,162,195,160,4387 

4310 DATA 117,32,143,49,96,173,45,62,2 

201,26,208,67,162,26,160,5,7556 

4320 DATA 32,8,59,173,30,63,208,3,76,8 

82,59,173,10,210,201,100,9159 

4330 DATA 176,18,169,0,141,30,63,169,8 

80,141,35,67,169,122,141,36,7642 

4340 DATA 67,76,118,55,162,161,160,115 

97,134,190,96,189,0,132,217,214,5353 

3500 DATA 61,208,11,232,200,192,5,208, 

,242,230,198,76,92,53,96,173,2503 

3510 DATA 45,62,10,170,189,240,66,168, 

,189,239,66,170,32,143,49,173,1358 

3520 DATA 45,62,201,1,208,8,162,12,160 

0,118,32,143,49,96,201,9,6442 

3530 DATA 208,33,173,29,63,240,8,162,1 

140,160,119,32,143,49,96,173,8852 

3540 DATA 17,63,240,8,162,29,160,116,3 

32,143,49,96,162,116,160,122,8958 

3S50 DATA 32,143,49,96,169,123,133,182 

2,169,63,133,183,162,0,134,193,1383 

3560 DATA 166,190,160,0,177,182,221,0, 

,132,208,8,232,200,192,3,208,2911 

3570 DATA 243,240,21,230,193,165,182,2 

24,105,3,133,182,144,2,230,183,1597 

3580 DATA 165,193,201,46,208,218,56,96 

6,24,96,173,46,62,201,6,176,8583 

3590 DATA 57,166,194,224,45,240,67,224 

4,23,176,55,189,48,62,205,45,9510 

3600 DATA 82,240,20,201,128,208,8,162, 

,209,160,113,32,143,49,96,162,9931 

3610 DATA 77,160,113,32,143,49,96,169, 

,128,157,48,62,238,46,62,162,8761 

3620 DATA 93,160,113,32,143,49,32,13,6 

61,96,162,133,160,113,32,143,7154 

3630 DATA 49,96,162,14,166,115,32,143, 

,49,96,160,0,185,48,62,205,7719 

3640 DATA 45,62,240,10,192,23,240,3,20 

00,208,241,76,129,59,174,46,663 

3650 DATA 62,224,6,176,213,169,128,153 

3,48,62,238,46,62,152,72,32,7829 

3660 DATA 35,54,104,168,76,64,54,230,2 

205,208,14,169,0,133,205,160,1373 

3670 DATA 0,185,48,62,205,45,62,240,23 

38,200,192,23,208,243,165,205,6472 

3680 DATA 201,6,144,8,162,211,160,117, 

,32,143,49,96,166,194,224,10,292 

3690 DATA 208,3,76,22,55,224,45,240,55 

5,189,48,62,201,128,240,8,9864 

3700 DATA 162,101,160,113,32,143,49,96 

6,173,45,62,157,48,62,224,18,6838 

3710 DATA 208,7,169,1,141,25,63,208,9, 

,224,8,208,5,169,1,141,7010 

3720 DATA 28,63,206,46,62,162,123,160, 

,113,32,143,49,32,13,61,96,4646 

3730 DATA 160,0,185,48,62,201,128,240, 

,8,200,192,23,208,244,76,79,1953 

3740 DATA 54,165,205,201,6,240,157,192 

2,10,240,39,201,8,208,5,169,774 

3750 DATA 1,141,28,63,201,18,208,5,169 

9,1,141,25,63,230,205,206,770 

3760 DATA 46,62,152,72,32,201,54,104,1 

168,173,45,62,153,48,62,76,6538 

3770 DATA 221,54,104,104,169,7,76,74,6 

60,76,32,55,165,194,201,7,7138 

3780 DATA 208,32,173,55,62,201,128,240 

0,3,76,17,57,173,20,63,208,7583 

3790 DATA 3,76,19,58,73,1,141,20,63,17 

73,45,62,141,56,62,76,4051 

3800 DATA 118,55,201,28,208,108,173,45 

5,62,201,1,240,16,201,2,240,353 

3810 DATA 45,201,25,240,65,162,91,160, 

,114,32,143,49,96,173,18,63,6961 

3820 DATA 246,20,73,1,141,18,63,169,1, 



,141,48,62,141,49,62,32,3581 

3830 DATA 122,55,32,204,51,96,162,3,16 

60,114,32,143,49,96,162,28,6470 

3840 DATA 160,1,32,8,59,173,13,63,240, 

,236,73,1,141,13,63,169,7057 

3850 DATA 2,141,50,62,208,217,162,28,1 

160,21,32,8,59,173,33,63,5022 

3860 DATA 240,212,73,1,141,33,63,169,2 

25,141,64,62,141,70,62,76,5485 

3870 DATA 115,55,201,27,208,159,173,45 

5,62,201,25,208,25,162,27,160,9268 

3880 DATA 17,32,8,59,173,19,63,240,173 

3,73,1,141,19,63,169,25,5615 

3890 DATA 141,69,62,76,115,55,201,4,24 

40,3,76,89,55,162,27,160,7845 

3900 DATA 22,32,8,59,173,32,63,240,141 

1,73,1,141,32,63,169,4,5263 

3910 DATA 141,58,62,76,115,55,162,15,1 

160,114,32,143,49,96,165,194,9024 

4770 DATA 116,32,143,49,76,138,61,169, 

,45,133,184,169,62,133,185,169,2496 

4780 DATA 0,133,180,169,134,133,181,16 

60,0,177,184,145,180,230,180,208,7399 

4790 DATA 2,230,181,230,184,208,2,230, 

,185,165,185,201,63,208,232,165,8350 

4800 DATA 184,201,34,208,226,96,162,16 

68,160,117,32,143,49,173,31,208,2034 

4810 DATA 201,6,240,2,208,247,169,45,1 

133,184,169,62,133,185,169,0,2310 

4820 DATA 133,180,169,134,133,181,160, 

,0,177,180,145,184,230,180,208,2,5085 

4830 DATA 230,181,230,184,208,2,230,18 

85,165,185,201,63,208,232,165,184,8663 

3 

4840 DATA 201,34,208,226,76,186,50,78, 

,83,69,87,85,68,73,78,84,6941 

4850 DATA 79,32,87,73,84,72,32,84,72,6 

69,32,0,112,8,112,17,2504 

4860 DATA 112,32,112,48,112,56,112,70, 

,112,86,112,86,112,99,112,111,8234 

4870 DATA 112,131,112,139,112,149,112, 

,149,112,159,112,166,112,179,112,56,19 

926 

4880 DATA 112,149,112,189,112,282,112, 

,85,112,56,112,149,112,159,112,56,472 

4890 DATA 112,86,112,212,112,228,112,2 

239,112,246,112,246,112,251,112,3,5332 

2 

4900 DATA 113,11,113,18,113,25,113,30, 

,113,78,84,79,255,255,255,3,1619 

4910 DATA 32,255,255,8,255,6,255,255,1 

15,255,255,255,255,255,22,28,7598 

4920 DATA 28,255,255,255,255,255,1,255 

5,255,2,3,255,5,255,255,255,9043 

4930 DATA 1,255,255,255,255,1,7,255,25 

55,255,255,255,5,255,12,255,9201 

4940 DATA 255,4,255,1,11,255,255,255,8 

8,255,9,255,255,3,255,255,8425 

4950 DATA 255,255,255,6,255,255,255,25 

55,255,10,255,6,255,255,255,13,9324 

4960 DATA 9,11,255,255,255,12,255,5,16 

0,255,255,255,11,4,255,255,6557 

4970 DATA 255,255,10,255,255,14,24,255 

5,255,23,255,255,13,23,22,255,3643 

4980 DATA 255,255,255,255,255,17,23,25 

55,255,255,18,255,16,255,255,17,7086 

4990 DATA 19,255,255,255,255,18,255,25 

55,255,255,7,255,255,19,255,255,1980 

5000 DATA 255,16,255,18,255,255,255,15 

5,255,255,255,255,255,255,15,255,2734 

5010 DATA 14,255,255,255,26,255,255,13 

3,255,255,28,255,255,255,255,24,175 

5020 DATA 27,28,255,255,255,26,255,255 

5,255,255,255,25,255,255,26,255,1449 

5030 DATA 255,27,255,255,255,255,255,2 

255,255,33,255,255,255,255,255,255,703 

34 

5040 DATA 255,255,255,9,255,255,255,25 

55,255,1,1,1,1,1,1,1,5622 

5050 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1, 

,0,6,5251 

5060 DATA 12,18,24,30,36,42,48,54,60,6 

66,72,78,84,90,96,102,4852 

5070 DATA 108,114,120,126,132,138,144, 

,150,156,162,168,174,180,186,192,198,7 

7918 

5080 DATA 204,71,69,84,68,82,79,79,80, 

,69,82,69,65,73,78,83,5491 

5090 DATA 87,69,65,84,85,82,76,76,73,6 

69,88,65,87,65,86,83,5615 

5100 DATA 72,79,84,65,75,76,73,78,77,7 

79,86,80,85,83,85,78,5923 

5110 DATA 76,80,82,69,86,85,84,66,65,6 
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68,78,65,73,67,65,82,4971 

5126 DATA 88,65,68,68,73,83,71,85,78,6 

66,65,84,66,79,88,71,5351 

5138 DflTft 65,83,76,79,76,86,73,65,78,7 

79,82,77,69,77,77,73,5358 

5140 DftTft 67,80,82,79,82,79,68,67,79,7 

73,83,77,65,83,67,85,5475 

5150 DflTfl 69,76,69,70,76,65,76,65,82,6 

67,79,77,75,78,79,72,5285 

5160 DflTft 79,79,83,87,73,82,79,66,67,6 

65,66,68,59,83,83,65,5071 

5170 DflTfl 70,83,76,79,67,65,71,76,59,8 

86,76,79,67,86,69,78,5403 

5180 DftTfl 77,55,67,65,80,69,68,79,79,8 

80,76,65,82,69,68,66,5005 

5190 DftTft 76,85,80,73,67,69,78,76,68,8 

82,73,72,79,76,65,76,5252 

5200 DftTfl 76,98,97,160,103,101,0,110,9 

97,105,108,102,105,108,101,0,6891 

5210 DftTft 99,97,114,100,0,112,97,100,0 

0,100,105,115,107,0,103,117,6739 

5220 DftTfl 110,0,98,97,116,111,110,0,98 

8,111,120,0,103,97,115,32,6274 

5230 DATA 109,97,115,107,0,102,111,108 

8,100,101,114,0,118,105,97,108,7910 

5240 DftTft 0,102,111,114,109,117,108,97 

7,0,109,101,109,111,0,109,105,7279 

5250 DflTfl 99,114,111,100,111,116,0,112 

2,114,111,103,114,97,109,0,114,7705 

5260 DATA 111,108,0,99,111,105,110,0,1 

115,109,97,108,108,32,107,101,7483 

5270 DflTfi 121,0,115,99,117,98,97,32,10 

03,101,97,114,0,101,108,101,7262 

5280 DflTfl 99,116,114,111,110,105,99,32 

2,100,101,118,105,99,101,0,102,7327 

5290 DftTft 108,97,115,104,105,110,103,3 

32,98,97,108,108,0,108,97,114,7642 

5300 DftTfl 103,101,32,107,101,121,0,99, 

,111,109,98,105,110,97,116,105,8787 

5310 DATA 111,110,0,5,64,11,64,20,64,2 

25,64,29,64,34,64,38,1409 

5320 DftTfl 64,44,64,48,64,57,64,64,64,6 

69,64,77,64,82,64,91,4768 

5330 DflTfl 64,99,64,103,64,108,64,118,6 

64,129,64,147,64,161,64,171,9672 

5340 DflTfl 64,32,62,65,169,3,162,16,157 

7,66,3,169,8,157,74,3,5633 

5350 DflTfl 169,171,157,68,3,169,65,157, 

,69,3,169,0,157,75,3,32,5502 

5360 DflTfl 86,228,48,43,169,11,162,16,1 

157,66,3,169,45,157,68,3,6376 

5370 DflTfl 169,62,157,69,3,169,246,157, 

,72,3,169,0,157,73,3,32,6574 

5380 DflTfl 85,228,48,11,162,71,160,113, 

,32,143,49,32,62,55,96,32,5679 

5390 DflTfl 62,65,162,181,160,65,32,143, 

,49,96,162,16,169,12,157,66,8501 

5400 DflTfl 3,32,86,228,96,32,62,65,169, 

,3,162,16,157,66,3,169,7502 

5410 DftTft 171,157,68,3,169,65,157,69,3 

3,169,0,157,75,3,169,4,6214 

5420 DflTfl 157,74,3,32,86,228,48,199,16 

69,7,162,16,157,66,3,169,8867 

5430 DflTfl 45,157,68,3,169,62,157,69,3, 

,169,246,157,72,3,169,0,8693 

5440 DflTfl 157,73,3,32,86,228,48,222,17 

73,30,63,240,13,169,181,141,2726 

5450 DflTfl 35,67,169,121,141,36,67,76,4 

40,65,169,80,141,35,67,169,8469 

5460 DflTfl 122,141,36,67,76,40,65,68,58 

8,83,80,89,46,68,65,84,5028 

5470 DftTfl 155,70,105,108,101,32,101,11 

14,114,111,114,46,32,0,32,78,4914 

5480 DflTfl 66,32,222,65,96,46,32,39,63, 

,33,44,45,58,47,40,41,2417 

5490 DflTfl 48,49,50,51,52,53,54,55,56,5 

57,169,0,133,206,169,80,8747 

5500 DftTft 133,207,169,0,133,208,169,11 

12,133,209,160,0,177,206,240,32,4890 

5510 DftTfl 201,31,240,46,201,30,240,32, 

,201,27,208,5,169,255,145,208,5495 

5520 DflTfl 96,144,10,56,233,28,170,189, 

,201,65,76,20,66,24,105,96,8033 

5530 DflTfl 145,208,32,70,66,76,238,65,3 

32,56,66,177,206,24,105,64,8750 

5540 DflTfl 208,238,32,56,66,177,206,178 

0,189,203,65,76,20,66,24,169,344 

5550 DflTfl 255,145,208,96,230,206,208,2 

2,230,207,96,230,208,208,2,230,8243 

5560 DflTfl 209,96,32,56,66,32,63,66,96, 

,120,169,0,133,206,169,96,379 

5570 DflTfl 133,207,169,0,133,208,169,80 

0,133,209,160,7,169,0,153,192,3055 



5580 DflTfl 3,136,16,250,160,4,177,206,1 

153,208,3,136,16,248,162,7,1958 

5590 DflTfl 169,0,160,6,110,208,3,110,20 

09,3,110,210,3,110,211,3,9395 

5600 DftTfl 110,212,3,106,136,192,1,24,2 

208,234,106,106,106,157,192,3,1752 

5610 DftTft 202,16,223,160,7,185,192,3,1 

145,208,136,16,248,150,7,185,3268 

5620 DflTfl 192,3,201,27,240,32,136,16,2 

246,165,206,24,105,5,133,206,2145 

5630 DflTfl 165,207,105,0,133,207,165,20 

08,24,105,8,133,208,165,209,105,4029 

5640 DflTfl 0,133,209,76,104,66,96,238,5 

53,111,54,32,55,2,56,66,5533 

5650 DflTfl 56,4,57,65,57,144,57,232,57, 

,27,58,81,58,238,53,51,7639 

5660 DflTfl 59,90,59,165,59,32,55,165,59 

9,66,56,86,118,157,118,157,9781 

5670 DftTft 118,195,118,232,118,13,119,1 

157,118,66,119,107,119,3,120,3,7969 

5680 DflTfl 120,13,119,169,119,219,119,3 

3,120,33,120,104,120,164,120,190,2299 

5690 DflTfl 120,227,120,7,121,66,121,170 

0,122,105,121,3,120,132,121,181,1504 

5700 DflTfl 121,208,121,250,121,43,122,1 

170,122,170,122,170,122,174,115,248,65 

572 

5710 DftTft 115,58,116,93,116,143,116,23 

32,116,77,117,229,117,226,2,227,4963 

5720 DATA 2,0,48,0,0,0,0,0,0,0,0,0,0,0 

0,0,0,5866 



LISTING 2: ASSEMBLY 



6100 


; SAyEttD:SPYPTi.i 


165 


0110 


• _ _ _ 




0120 






0130 


; Secret Agent 


; 


0140 


; Cc] 1988 


i 


0150 

0160 


; by Barry Kolbe ; 
■ 




, 


0170 


.OPT NO LIST 




018P, 


t 




0190 


.MACRO PRINT 




0200 


LDK « <r.i. 




0210 


LDY n >y.i. 




0220 


JSR PRIHTE 




0230 


.ENDM 




0240 


* 




0250 


*= SB0 




0260 


SCR .DS 2 


screen scroll 


0270 


SCR2 .DS 2 


ditto 


8280 


ML .DS 2 


More indirects 


0290 


5L .DS 2 




0300 


J .DS 2 




0310 


Ml .DS 1 


save K & Y 


0320 


K2 .DS 1 




0330 


Yl .DS 1 




0340 


Y2 .DS 1 




0350 


IX .DS 1 


char counter 


0360 


KF .DS 1 




0370 


UP .DS 1 


yerb counter 


0380 


NP .DS 1 


noun counter 


0390 


DO .DS 1 


direct object 


0400 


PO .DS 1 


jprep. Object 


0410 


ERFLG .DS 1 


;error flag 


0420 


INTOF .DS 1 


j'lNTO- flag 


0430 


HITHF .DS 1 


;'WITH' flag 


0440 


TEMP .DS 1 




0450 


EOLF .DS 1 


;in printing 


0460 


MflXLEN .DS 1 


;Max input 


0470 


ROHK .DS 1 


jsave rowers 


0480 


COLX .DS 1 


jsave colcrs 


0490 


NOEND .DS 1 




0495 


INROOM .DS 1 


; objects in roo 


0500 


i 




0510 


GRO = $8ceo 


; screen nenory 


0520 


HOLD = S8600 


;data backup 


0530 


CH5ET = 580C0 


;character set 


0540 


IBUF = $8400 


; input buffer 


0550 


FBUF = S8500 


;print buffer 


056 a 


f 




0570 


ROMCRS = $54 


;cursop row 


0500 


COLCHS = $55 


;& colunn 


05f*0 


RTCLOK - 514 


;clock 


0600 


CH = $02FC 


jkey 


0610 


CflPS = $02BE 


;caps flag 


0620 


CON50L = $D01F 


;consol button 


0630 


RANDOM = $D20A 


jrandoM nunber 


0640 


EOL = $98 


;end of line 



JUNE A.N.A.L.O.Q. Computing 



#• 



SEu s 



0650 


BOTLIN = 17 


;scrolI value 


0660 


ENLIN = $26 


;wrap around val 


0678 


NUMOBJ = 46 


jtotal « objects 


0680 


NUM5H0 = 23 


jtt obj can show 


0630 


MUMV = 18 


;nunber of verbs 


0700 






0710 


.INCLUDE ttD: 


SPYPT3.M65 


0720 






0730 


«= $6000 




0740 






8750 


5TftRT J5H KEEP 


;back up data 


0768 


JMP BEGIN 




0770 


1 




8788 


.INCLUDE »D: 


SPYPT6.M65 


0790 


1 




0800 


jstapt things going 


0810 


i 




8820 


BEGIN LDA tt$61 


; lowercase 


0830 


5T« CAPS 




0840 


LDA tt >CHSE1 


' ;install 


0850 


STft $02F4 


;character set 


0860 


JSR CLRGRO 


;clear screen 


0870 


LDft » <GDL51 


' ;install 


0888 


STft $0230 


jDisplay List 


0890 


LDO <t >GDL51 




0900 


5T0 $0231 




0910 


LDA tt$3E 


;enbale DMA 


0920 


STfl $022F 




0930 


LDA tte 


; initialize 


0948 


STA MHERE 


; outside 


8950 


5TA CARRY 


jcarry nothing 


0960 


STA NOEND 




0970 


JSR HOME 


;hOMe cursor 


0988 


PRINT M47 


;print credits 


8998 


PRINT M48 




1000 


INC ROMCRS 


jnext line 


1010 


JSR SHOLOC 


;show roon info 


1020 


; 




1030 


jMain loop 




1040 


f 




1050 


DOIN JSR INPUT 


;get input 


1060 


LDA ttl 


;shoDt 


1070 


STA FK 


jshoot flag 


1080 


LDA IBUF+1 


;check for 


1090 


CMP ttEOL 


.-single letter 


1100 


BNE TRYCHD 


;conHand 


1110 


LDA IBUF 




1120 






1130 


;Moue froM roon 


to rooM 


1140 






1150 


LDX «5 


;a direction? 


1168 


CMLl CMP SINGLE, 


>X 


1170 


BEQ GSING 


jyes 


1180 


DEK 


;try again 


1198 


BPL CMLl 




1288 


BMI TRYSPC 


jtry K,I,R,L 


1218 


GSING STK TEMP 


jsawe direction 


1228 


JSR APEROB 


;ape or robot? 


1230 


LDY MHERE 


;present loc 


1240 


LDA EKOF.Y 


;get offset 


1250 


CLC 


;add direction 


1260 


ADC TEMP 


;0-5 


1270 


TAY 




1280 


LDA EKITAB.Y ;get exit 


1298 


BPL GOOO 


;value:+ =ok 


1388 


PRINT M8 


; 'Can't go' 


1310 


JMP DOIN 


;More input 


1328 


GOOO STA WHERE 


jnew rooM 


1338 


CMP tt$21 


; esc ape? 


1348 


BNE GOOP 


; no 


1358 


JMP ENDGAM 


;see if won 


1368 


GOOP JSR SHOLOC 


;show new roon 


1378 


JSR CKDEAD 


;deadlv roon? 


1380 


JMP DOIN 


jnore input 


139B 






1400 


iCheck other single letters 


1410 






1420 


TRYSPC CMP a-I 


; inventory? 


1430 


BNE TLOK 




1440 


JSR INVENT 




1450 


JMP DOIN 




1460 


1 




1470 


TLOK CMP «'L 


jlDok at roon? 


1488 


BNE TSAV 




1498 


JSR LOOK 




1588 


JMP DOIN 




1510 


1 




1520 


TSAW CMP J»'K 


;save data 


1530 


BNE TRYLOA 


;to disk? 


1540 


JSR SUEGAM 




1550 


JMP DOIN 




1560 


; 




1570 


TRYLOA CMP tt'R 


;retrieve data 


1580 


BNE TRYCMD 





1590 




JSR LOODGAN 


leee 




JSR SHOLOC jshow roOM 


leie 




JMP DOIN 


1620 


1 




1630 


;lnterpret sentence 


1640 


J 




1658 


TRYCMD JSR INTPRET jparse 


1660 




LDA ERFLG jerror? 


1670 




BEQ AOK 


1680 




PRINT Ml ;'Mhat?' 


1690 




JMP DOIN jget input 


1700 


AOK 


LDA UP ;get verb nunber 


1710 




ASL A ;x2 for 


1720 




TAK ;look up table 


1730 




LDA CMDTBL,K 


1740 




STA DOCM+1 


1750 




LDA CMDTBL+1,K 


1760 




STA DOCM+2 


1770 


DOCM JSR $FFFF ; do verb 


1780 




JMP DOIN ;nore input 


1790 






1800 


jSet the cursor at 2,1 


1810 






1820 


HOME LDA ttl 


1830 




STA ROWCRS 


1840 




STA C0LCR5 


1850 




INC C0LCR5 


1860 




RTS 


1870 


J 




1888 


;Show the nane of the roon 


1898 


;in 


the Status line 


1988 


; 




1910 


SHOLOC LDY »24 ;clear out 


1920 




LDA ste line 


1930 


SCI 


STA PLACE, Y 


1940 




DEY 


1958 




BPL SCI 


1960 




LDA WHERE ;get roon 


1978 




ASL A ;x2 for table 


1988 




TAX 


1998 




LDA ROOMTAB,K JUSe 


2000 




STA SL jindirect for 


2010 




LDA R00MTAB+1,K J for Move 


2020 




STA SL+1 


2030 




LDY »0 


2040 


SC2 


LDA C5LJ,Y ;get byte 


2050 




BEQ SXT jdone if 


2068 




JSR A5C2IC ;lnternal Code 


2078 




STA PLACE+2,Y ;on Status 


2888 




INY jline 


2898 




BNE SC2 


2188 


5XT 


JSR LOOK ;look at rooM 


2118 




RTS 


2128 






2138 


;Look at a Roon 


2148 






2158 


LOOK JSR DE5CRIB ;describe it 


2160 




JSR SHOEKT ;show exits 


2170 




JSR SHOOBJ ;sho objects 


2180 




RTS 


2190 






2288 


;Show objects in room 


2218 






2228 


SHOOBJ LDK HO j'You see:' 


2238 


SHS 


LDA YOUS.K 


2240 




STA IBUF,K 


2250 




INK 


2260 




CPX »9 


2278 




BNE SHS ;X = 9 


2280 




LDY ttO ;scan objects 


2290 


NNl 


LDA OBJTBL,Y 


2300 




CMP MHERE ;is it here? 


2310 




BEO SOB ;yes 


2320 


SOC 


INY jnext object 


2330 




CPY UNUMSHO ;that all? 


2348 




BNE NNl ;no 


2358 




CPX tt9 


2368 




BEQ NOOB jyou see nothing 


2378 




LDA ttS28 ;zap last ', ' 


2388 




STA IBUF-2,X 


2398 




LDA BO J 'EOL' Marker 


2488 




STA IBUF-1,X 


2410 




PRINT IBUF ;on screen 


2420 




RTS 


2430 


/ 




2440 


NOOB LDY «8 ; 'Nothing' 


2458 


NOI 


LDA NOTH,Y 


2460 




STA IBUF,X 


2478 




BEQ NRT 


2488 




INK 


2490 




INY 


2500 




BNE NOI 


2510 


NRT 


PRINT IBUF ;print it 


2528 




RTS 
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2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 



SOB TYft 

PHA ;save Y 

ASL A 1X2 

TAY ;point to 

LDA 0BJNAM+1,Y ;object'S 

STfl SL+1 jnawe 

LDA OBJNAM,Y 

5TA SL 



LDY ttO 
ODM LDA t5L),V 

BEQ ODN 

5TA IBUF,K 

INK 

IHY 

BNE ODM 
ODN LDA »', 

STA IBUF,K 

LDA tS$20 

INX 

STA IBUF,K 

INK 

PLA 

TAY 

JMP SOC 

jShow exits 

SHOEXT LDX »e ; 
SKI LDA M9,X ; 

STA IBUF,K 

INK 

CPK «15 

BNE SKI 

LDY WHERE J 

LDA EKOF,Y ; 

TAY ; 

LDA ttO ; 

STA XI J 
SKX STY TEMP 

LDA EKITABjY 

BMI ELQ J 

STY TEMP 

LDA Kl ; 

ASL A J 

TAY 

LDA DIRECT, Y 

STA SL ; 

LDA DIRECT+1, 

STA SL+1 

LDY «0 J 
ELP LDA C5L),Y J 

STA IBUF.X 

BEQ ELQ 

INK 

INY 

BNE ELP 
ELQ LDY TEMP 
NOEX INC XI ; 

INY 

LDA XI 

CMP «6 ; 

BNE SXX 

LDA »$20 ; 

STA IBUF-2,K 

LDA ttO ; 

STA IBUF-1,K 
PRINT IBUF 

RTS 



;nove nane into 
; buffer 



jadd in 



;get Y back 



;do nore 



■The exits 
are: ' 



roon tt 

offset into 

EKITAB 

libuf counter 
(direction cntr 

;get exits 
iSFF = no 

iget dir nane 

IXZ 

;point to 
mane 
,Y 

move nane 
ito buffer 



try next direct 

is that all? 
zap last ', ' 
set 'EOL' 
;print 



Find the VERB & NOUN 

input fornat: 

uepb tthe) object [with/into] 

Cthe] object] 
(the} and I. .1 are optional 

if uerb OP first object are not 
recognized an error is returned 

spaces and 'the' are skipped 

INTPRET LDX »0 J set variables 



STK IX 

SIX VP 

SIX NP 

SIX INTOF 

STX WITHF 

SIX ERFLG 



;char counter 
juerb nunber 
J noun nunber 
;into and with 
;flags 
;error flag 



; search 



LDA « <VERBT ;point to 
STA SL ;verb table 



3470 




LDA 


« >VERBT 


3480 




STA 


SL+1 




3490 


SU2 


LDX 


IK 


;get counter 


3500 




LDY 


»0 




3510 


SV5 


LDA 


tSL3,Y 


;do the first 


3520 




CMP 


IBUF,X 


J3 letters 


3530 




BNE 


SVl 


;natch? 


3548 




INX 






3550 




INY 






3560 




CPY 


tt3 




3570 




BNE 


SU5 


;not done 


3580 




BEQ 


GOTV 


;got a verb 


3590 


SVl 


INC 


UP 


;next verb 


3600 




LDA 


SL 


;add 3 to 


3610 




CLC 




;pointer 


3620 




ADC 


»3 




3630 




STfl 


SL 




3640 




BCC 


551 




3650 




INC 


SL+1 




3660 


SSI 


LDA 


UP 


;end of verbs? 


3670 




CMP 


«NLMU 




3680 




BNE 


SU2 




3690 


5U3 


INC 


ERFLG 


;error 


3700 




RTS 






3710 










3720 


;got verb 




3730 










3740 


GOTV LDA IBUF,K 


;look for 


3750 




CMP 


ttEOL 


J EOL or 


3760 




BEQ 


SV3 


J first space 


3770 




CMP 


tt$20 




3780 




BEQ 


G0T5P 




3790 




INX 






3800 




BNE 


GOTU 




3810 


G0T5P J5R N5PACE J find next Char 


3820 




JSR 


SKPTHE 


jskip 'the' 


3830 




JSR 


HSPACE 


;find next char 


3840 


5H1 


JSR 


FINDN 


jget noun 


3850 




BCS 


SU3 


; error 


3860 


SH2 


LDA 


NP 


;save as 


3870 




STA 


DO 


;direct object 


3880 










3890 


J fi 


Dd EOL or space 


3900 










3910 


SH3 


LDA 


IBUF,X 


; if EOL done 


3920 




CMP 


ttEOL 




3930 




BNE 


SH9 




3940 




RTS 






3950 


SH9 


CMP 


ttS20 


;find end of 


3960 




BEQ 


SH4 


;noun- i.e. 


3970 


5V8 


INX 




;a space char 


3980 




BNE 


SH3 




3990 


SH4 


INX 






4000 




STX 


IK 




4010 




JSR 


NSPACE 


; find non space 


4020 




JSR 


PREP 


;a preposition? 


4030 




JSR 


NSPACE 


J find non space 


4040 




JSR 


SKPTHE 


;skipping. . . 


4050 




JSR 


FINDN 


;last noun? 


4060 




LDA 


NP 


;as prep, object 


4070 




STA 


PO 




4080 




RTS 






4090 










4100 


;Find a 


'non' SPACE character 


4110 










4120 


HSPACE LDA IBUF, 


X 


4130 




CMP 


tt$2B 




4140 




BNE 


NS 




4150 




INK 






4160 




BNE 


NSPACE 




4170 


NS 


STX 


IK 


jchar counter 


4180 




RTS 






4190 










4200 


;Skip the word ' 


the' 


4210 










4220 


SKPTHE LDY «0 




4230 


STl 


LDA 


THE.Y 




4240 




CMP 


IBUF,X 




4250 




BNE 


THER 




4260 




INX 






4270 




INY 






4280 




CPY 


tt4 




4290 




BNE 


STl 




4300 




STX 


IX 




4310 


THER RTS 




4320 


; 








4330 


;Check for 'INTO' or 'WITH' 


4340 


;if 


found set flags 


4350 










4360 


PREP LDX IX 




4370 




LDY 


ttO 




4380 


P2 


LDA 


IBUF,K 


; 'INTO'? 


4390 




CMP 


INTOB,Y 




4400 




BNE 


PREPl 
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S3 



BBS 






44ie 




INK 




4420 




INY 




4430 




CPY a5 




4440 




BNE P2 




4450 




INC INTOF 


Jflag 


4460 


P4 


STX IK 




4470 




RTS 


JOk 


4480 


PREPl LDfl IBUF.X ;'WITH'? 


4490 




CMP WITHB,Y 




4500 




BNE P3 




4510 




INK 




4520 




INY 




4530 




CPY tt5 




4540 




BNE PREPl 




4550 




INC WITHF 


;set flag 


4560 




JMP P4 




4570 


P3 


RT5 




4580 








4590 


jGet a description of a roo« 


4600 








4610 


DE5CRIB LDA HHERE ;this roOH 


4620 




ASL A 


;x2 


4630 




TAX 




4640 




LDA DESTAB+1,X ;point to 


4650 




TAY 


Jdescription 


4660 




LDA DE5TAB,X 


4670 




TAX 




4680 




J5R PRINTE 


;print it 


4690 




LDA UHERE 


;rooM 1? 


4700 




CMP »1 




4710 




BNE DSS 


jspecial nsg 


4720 




PRINT M53 




4730 




RTS 




4740 


* 






4750 


D55 


CMP «9 


;ape rooM? 


4760 




BNE DEOU 




4770 




LDA FI 


Jin cage 


4780 




BEQ APER 


jyes 


4790 




PRINT D9 


; 'In cage' 


4800 




RTS 




4810 


ftPER LDA F6 


;ape alive? 


4820 




BEQ APES 




4830 




PRINT M37 


; 'Charging' 


4840 




RTS 




4850 


APES PRINT D20 ; ■ Dead ape' 


4860 


DEOU RT5 




4870 








4880 


;Fi 


nd the NOUN 




4890 








4900 


FINDN LDA tt <NOUNT ;point to 


4910 




5TA SL 


jnoun table 


4920 




LDA n >NOUNT 


4930 




STA SL+1 




4940 




LDX »0 


;noun counter 


4950 




STK NP 




4960 


SN2 


LDK IX 


;char counter 


4970 




LDY »0 




4980 


5M7 


LDA CSLJ,Y 


;coMpare 3 


4990 




CMP IBUFjX 


; letters 


5000 




BNE SNl 




5010 




INK 




5020 




INY 




5030 




CPY «3 


;Match 3? 


5040 




BNE SN7 




5050 




BEQ GOTN 


;yes 


5060 


5N1 


INC NP 


;next noun 


5070 




LDA SL 


J add 3 to the 


5080 




CLC 


;pointer 


5090 




ADC n3 




5100 




STA SL 




5110 




BCC SN5 




5120 




INC SL+1 




5130 


SN5 


LDA NP 


;at end of 


5140 




CMP ttNUMOBJ 


;nouns? 


5150 




BNE SN2 


;no 


5160 




SEC 


■error 


5170 




RTS 




5180 


GOTN CLC 


;got one 


5190 




RTS 




5200 


; 






5210 


.■Beginning of verb Handlers 


5220 


; DO = direct object 


5230 


J PO = prepositi 


onal object 


5240 








5250 


;Get an object 




5260 








5270 


DGET LDA CARRY 


jcarrying the 


5280 




CMP «6 


jnaxiMUM 


5290 




BCS NOGT 


;yes 


5380 




LDK DO 


; object nunber 


5310 




CPK «$2D 


;get all 


5320 




BEQ GETAL 


;yes 



5330 




CPK 


8$17 


;over naxinuH 


5348 




BCS 


GT 


;possibIe to 


5350 




LDA 


OBJTBL, 


K J get 


5368 




CMP 


HHERE 


; is it here? 


5378 




BEQ 


IH 


;yes 


5388 




CMP 


»$80 


;you have it? 


5398 




BNE 


NTH 


;no 


5480 




PRINT Mil 


; ' Have already' 


5410 




RTS 






5420 


NTH 


PRINT M3 


; 'Not here' 


5430 




RTS 






5440 


IH 


LDA 


tt$80 


jtake it 


5450 




STA 


OBJTBL, 


K 


5460 




INC 


CARRY 


;add 1 


5470 


TOOK PRINT M4 


; 'Taken' 


5488 




JSR 


D05C0R 


;check score 


5490 




RTS 






5500 


NOGT PRINT M7 


; 'Can't carry 


5510 




RTS 






5520 


GT 


PRINT M24 


; 'Can't get' 


5530 




RTS 






5540 


J 








5558 


;Get all objects 


5560 


• 








5570 


GETAL LDY »0 


;check if 


5580 


GET 


LDA 


DBJTBL, 


Y ;here 


5590 




CMP 


MHERE 




5600 




BEQ 


TAK 


;yes take 


5618 




CPY 


tJNUMSHO 


;at end? 


5628 




BEQ 


TKl 


;yes 


5630 




INY 






5640 




BNE 


GET 




5650 


TKl 


JMP 


PDON 


; 'Done' 


5660 


TAK 


LDK 


CARRY 


J carry more? 


5670 




CPX 


»$06 




5688 




BCS 


NOGT 


;no 


5698 




LDA 


tt$80 


;take it 


5708 




STA 


OBJTBL, 


Y 


5718 




INC 


CARRY 


;add 1 


5728 




TYA 




;save Y 


5738 




PHA 






5748 




JSR 


TOOK 


; 'Taken' 


5758 




PLA 




;get Y back 


5768 




TAY 






5778 




JHP 


GET 


J do nore 


5788 


J 








5798 


J Drop object cs] 




5808 


i 








5818 


INJ 


INC 


INROOM 


;add 1 


5820 




BNE 


INK 




5830 


; 








5840 


DDRO LDA no 


;zero counter 


5850 




STA 


INROOM 




5860 




LDY 


no 


;count objects 


5870 


INN 


LDA 


OBJTBL, 


Y ;in roon 


5880 




CMP 


UHERE 




5898 




BEQ 


INJ 


;here's one 


5980 


INK 


INY 




;next object 


5918 




CPY 


ONUMSHO 


J done? 


5928 




BNE 


INN 




5938 




LDA 


INROOM 


;at 6 or Hore? 


5948 




CMP 


tt6 




5958 




BCC 


INL 


JOk 


5960 


INM 


PRINT M51 


J 'No roon' 


5970 




RTS 






5980 


INL 


LDX 


DO 


; is it the 


5990 




CPX 


tt$8A 


;dreaded vial? 


6080 




BNE 


PPl 


;no - whew 


6010 




JMP 


VDED 


ja goner 


6020 


PPl 


CPX 


n$2D 


;drop all? 


6830 




BEQ 


DPAL 


;yup 


6040 




LDA 


OBJTBL, X ;have it? 


6050 




CMP 


St$80 




6060 




BEQ 


DH 


J yes 


6070 




PRINT M5 


; 'Don' t have' 


6080 




RTS 






6090 


DH 


LDA 


MHERE 


:put in roon 


6100 




STA 


OBJTBL, X 


6110 




CPK 


»$12 


;was it scuba? 


6120 




BNE 


DDY 




6130 




LDA 


Stl 


;reset flag 


6140 




STA 


FE 




6150 




BNE 


DDK 




6160 


DDY 


CPX 


ttSOS 


;is it the nask? 


6170 




BNE 


DDK 




6180 




LDA 


ttl 


jreset flag 


6190 




STA 


FH 




6200 


DDK 


DEC 


CARRY 


jl less to carry 


6218 


DP4 


PRINT M6 


; 'Dropped' 


6220 




JSR 


D05C0R 


;change score? 


6230 




RTS 






6240 


; 








6250 


;Drop all 
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5263 ; 

6270 DPflL LDY «0 jscan Objects 

6289 DPI LDft OBJTBL,Y 

6290 CMP tt$80 ;haue this 1? 
6380 BEt) DP2 -.ffes 

6310 DPS INV J next Object 

6320 CPY «NUMSHO J done? 

6330 BHE DPI 

6340 JMP TKl ; 'done- 

6350 DP2 LDft INROOM ;is there rooM? 

6360 CMP tt6 J 6 naxinuH 

6370 BEQ INM ;no rooH 

6380 CPV «50fl ;vial? 

6390 BEQ UDED Jdead! 

6480 CMP «$08 ;gas Mask? 

6410 BNE NOGS 

6420 LDA ai ; flip flag 

6430 STfl FH 

6440 NOGS CMP »$12 jscuba gear 

6450 BME NQ5C 

6460 LDfl «1 JfliP flag 

6470 STfl FE 

6480 ; 

6490 N05C INC INROOM Jl Hore in roOM 

6SO0 DEC CARRY ;carry 1 less 

6510 TYfl jsawe Y 

6520 PHA 

6530 J5R DP4 ; 'Dropped' 

6540 PLA 

6558 TAY J get Y 

6560 LDA NHERE jput in roon 

6570 5TA OBJTBLjV 

6580 JMP DP3 ;More 

6590 ; 

6600 UDED PLA ;uirus dropped 

6610 PLA 

6620 LDA tt7 

6630 JMP DEAD 

6640 ; 

6650 ; 

6660 ;lJnlock is the sane as OPEN 

6670 ; 

6680 DUNL JMP DOPE 

6690 ; 

6700 ;Open 

6710 ; 

6720 DOPE LDA DO ; the box? 

6730 CMP «7 

6740 BNE DDF 

6750 LDA OBJTBL+7 ; have it? 

6760 CMP «$88 

6770 BEQ G55 

6780 JMP HAUNT ; 'Haven't got- 

6790 G55 LDA F9 ;if opned before 

6800 BNE GDI 

6810 JMP EE2 ;see 'Nothing' 

6320 GDI EOR ttl jelse set flag 

6830 5TA F9 ;so no reopen 

6840 GGS LDA MHERE ; gas Mask here 

6850 STA OBJTBL+8 

6860 JMP LKSEE ;sh0W it 

6870 ; 

6880 DDF CMP «5iC ; open desk? 

6890 BNE OCC 

6900 LDA MHERE J Which roOM? 

6910 CMP ttl ; entrance? 

6920 BEQ ODl 

6930 CMP tt2 jreception? 

6940 BEQ 0D2 

6950 CMP tt$19 JOffice? 

6960 BEQ 0D9 

6970 HOCAH PRINT M19 ; ' Can ' t ' 

6980 RTS 

6990 J 

7800 ODl LDA F7 jentrance desk 

7010 BEQ ITOPN jalread!^ open? 

7020 EOR ttl 

7030 STA F7 

7040 LDA ttl ;badge & 

7050 STA OBJTBL ;nailfile 

7060 STA OBJTBL+1 

7070 OEl JSR ITOPN ;"Open' 

7080 LKSEE JSR LOOK ;shOW roOH 

7090 RTS 

7100 ; 

7110 ITOPN PRINT M13 ;'It's open' 

7120 RTS 

7130 0D2 LDK ttSlC ;reception desk 

7140 LDY ttl ;use nailfile 

7150 JSR CKWITH ;say 'WITH' 

7160 LDA Fl ;opened flag 

7170 BEQ ITOPN 

7180 EOR ttl 



7190 STA Fl 

7200 LDA »2 JShow card 

7210 STA OBJTBL+2 

7220 BNE OEl 

7230 ; 

7240 0D9 LDK ttSlC ;office desk 

7250 LDY tt5l5 J large key 

7260 JSR CKWITH J'WITH'? 

7270 LDA FN ;open flag 

7280 BEQ ITOPN 

7290 EOR ttl 

7300 STA FN 

7310 LDA tt5l9 ;show: 

7320 STA OBJTBL+$10 JCOin 

7330 STA 0BJTBL+$16 JCOMbination 

7340 JMP OEl 

7350 1 

7360 OCC CMP ttSlB ;cabinet 

7370 BNE NOCAN 

7380 LDA WHERE 

7390 CMP tt$19 ;office? 

7400 BNE OCK 

7410 LDK ttSlB ;cabinet 

7420 LDY ttSll jSMall key 

7430 JSR CKWITH ;'WITH' 

7440 LDA F8 J open flag 

7450 BEQ ITOPN 

7460 EOR ttl 

7470 STA F8 

7480 LDA tt$19 

7490 STA 0BJTBL+$15 ; large key 

7500 JMP OEl 

7510 ; 

7520 OCK CMP tt4 ;kitchen? 

7530 BEQ KOK 

7540 JMP NOCAN ; 'Can't' 

7550 KOK LDK «S1B jcabinet 

7560 LDY ttSl6 ;coMbination 

7570 JSR CKWITH J'WITH' 

7580 LDA FM ;open flag 

7590 BEQ ITOPN 

7600 EOR ttl 

7610 STA FM 

7620 LDA «4 

7630 STA OBJTBL+SOA ;vial 

7640 JMP OEl 

7650 ; 

7660 NOTYT PRINT M14 ;'Not yet!' 

7670 RTS 

7680 ; 

7690 jRead 

7700 ; 

7710 DREft LDA DO ;what Shall 

7720 TAY ; we read? 

7730 LDft OBJTBL, Y 

7740 CMP tt$80 Jhave it? 

7750 BEQ DORE 

7760 PRINT M5 ; 'Can't read' 

7770 RTS 

7780 DORE LDA DO 

7790 CMP 83 J pad 

7800 BEQ RPD 

7810 CMP 89 ; folder 

7820 BEQ RFO 

7830 CMP ttSOC ;neno 

7840 BNE NORE 

7850 PRINT M22 ; 'Tighten 

7860 RTS jsecurity 

7870 RPD PRINT M20 J 'Push button' 

7880 RTS 

7890 RFO PRINT M21 J ' ExperiMents ' 

7900 RTS 

7910 NORE PRINT M23 ; ' Can ' t read' 

7920 RTS 

7930 ; 

7940 ;lnsert CPut) into 

7950 ; 

7960 DINS LDA WHERE 

7970 CMP ttS ;security? 

7980 BNE IRB 

7990 LDK tt2 JCard 

8000 LDY tt$lE ;slOt 

8010 JSR CKINTO ;say 'INTO' 

8020 LDA its 

8030 STA OBJTBL+5 J got a gun 

8040 LDA ttSFF ;lose card 

8050 STA OBJTBL+2 

8060 DINR DEC CARRY ;1 less 

8070 JSR PDON ; 'Done' 

8080 JMP LKSEE ;shOW 

8090 ; 

8100 IRB CMP 8$0B ; hallway 

8110 BNE IRC 
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•• 






,«0 



8128 




LDK 


ttO 


; badge 


8138 




LDY 


ttSlE 


;slot 


8140 




J5R 


CKINTO 


J 'INTO' 


8158 




LDA 


tt$OB 




8168 




5Tfl 


OBJTBL+6 jbaton 


8178 




LDA 


»$FF 




8188 




5Tft 


OBJTBL 


;lose badge 


8190 




J MP 


DINR 




8208 


1 








8218 


IRC 


CMP 


ttSOC 


;cafeteria 


8228 




BNE 


IRR 


;try rod 


8238 




LDK 


ttSie 


;coin 


8240 




LDV 


tt522 


i vending 


8250 




JSR 


CKINTO 


; 'INTO' 


8260 




LDA 


«$0C 




8270 




5TA 


OBJTBL+SOB JfOPMUla 


8280 




LDA 


«SFF 




8290 




STA 


OBJTBL+SlO ; lose coin 


8300 




J MP 


DINR 




8310 


; 








8328 


IRR 


CMP 


ttSl2 


; security 


8330 




BNE 


IRD 


;try disk 


0340 




LDX 


ttSOF 


jrod 


8350 




LDV 


tt$2C 


;hole 


8360 




J5R 


CKINTO 


; 'INTO' 


8370 




LDA 


ttSFF 




8380 




5TA 


OBJTBL + S0F J lose rod 


8390 




LDA 


tt$15 


;gain exit 


8400 




5TA 


EKITAB+111 


8410 




JMP 


DINR 




8420 


; 








8430 


IRD 


CMP 


n$14 


;coMputer roon 


8440 




BNE 


IRM 


J try MBMO 


8450 




LDK 


»4 


jdisk 


8460 




LDV 


tt$2B 


;drive 


8470 




J5R 


CKINTO 


; 'INTO' 


8480 




LDA 


tt$14 


:prograM 


8490 




STA 


OBJTBL+$OE 


8500 




LDA 


«SFF 


;nD disk 


8510 




STA 


OBJTBL+4 


8520 




JMP 


DINR 




8530 


/ 








8540 


IRM 


CMP 


a5l5 


;photo lab 


8550 




BNE 


IRO 




8560 




LDK 


»$0C 


jneno 


8570 




LDV 


»$2A 


J enlarger 


8580 




JSR 


CKINTO 


; 'INTO' 


8590 




LDA 


B$15 




8600 




STA 


OBJTBL+SOD iMicrodot 


8610 




STA 


OBJTBL+$OC JMewo 


8620 




JMP 


DINR 




8630 


IRQ 


JMP 


NOCAN 


; 'Can't' 


8640 










8650 


icheck DO, PO , 


ownershp 


8660 


;and for the word "INTO' 


8670 


; IS K= 


DO, V = 


PO? 


8680 










8690 


CKINTO CPX DO 


JK = DO? 


8700 




BNE 


NTFIT 




8710 




CPY 


PO 


;V - PO? 


8720 




BNE 


NTFIT 




8730 




LDA 


OBJTBL, K Jhave K? 


8740 




CMP 


B$80 




8758 




BNE 


UNU 




8760 




LDA 


INTOF 


;said 'INTO'? 


8770 




BED 


NRA 




8780 




RTS 




:sure go ahead 


8790 


NTFIT PRINT M16 J 'Won't fit' 


8800 




PLA 






8810 




PLA 




;pull return 


8820 




RTS 






8838 


UNU 


PLA 




jpull return 


8840 




PLA 






8850 




JMP 


HAUNT 


; ' Don ' t have i 


8860 


NRO 


PLA 




jpull return 


8870 




PLA 






8880 




JMP 


HOTVT 


J 'Not yet' 


8890 


i 








8900 




.INCLUDE BD 


SPYPT2.M65 


8910 




.INCLUDE ttD 


SPVPT4.M65 


8920 




.INCLUDE MD 


SPVPT5.M65 


8930 




«= 


$02E0 




8940 




.WORD START 





llSim 3: USSEMBli 



0100 ;5flUEBDi5PYPT2.M65 

0110 ; 

0120 i 



0130 




Secret Agent 


(c) 1988 J 


0140 




By: 


Barry Kolbe ; 


0150 




Second half 


Df nain ; 


0160 
0170 




prograM 


J 
1 










0180 










0190 


Mear scuba gear or gas Mask 


0200 










0210 DUEA LDA DO 




0220 




CMP 


«S12 


;scuba? 


8230 




BNE 


MTA 


;no 


0240 




LDA 


0BJTBL+$12 ;have it? 


0250 




CMP 


B$80 




0260 




BEQ 


WTB 


jyes 


0270 HAUNT 


PRINT M5 ; 'haven't got" 


0280 




RTS 






0290 










0300 NTB 


LDA 


BO 


;set flag 


0310 




STA 


FE 




0320 




PRINT M17 


; 'Wearing . . ' 


0330 




RTS 






0340 










0350 WTA 


CMP 


tt$08 


;gas nask? 


0360 




BNE 


WTC 


: no 


0370 




LDA 


0BJTBL+S08 jown it? 


0380 




CMP 


B$80 




0390 




BNE 


HAUNT 


;no 


0400 




LDA 


BO 


;set wear flag 


0410 




STA 


FN 




0420 




PRINT M31 


J 'Wearing. . . ' 


0430 




RTS 






0440 MTC 


JMP 


NOCAN 


; 'Can't do that' 


0450 










0460 


Turn 






0470 










0480 DTUR LDA MHERE 


JPOOM? 


0490 




CMP 


BS13 


; stairwel 1 


0500 




BNE 


TRl 


;nope 


0510 




LDA 


DO 




0520 




CMP 


B$18 


;hook? 


0530 




BEO 


TR2 


;yes 


0540 TR3 


JMP 


NOCAN 


; 'Can't' 


0550 TR2 


LDA 


BS14 


:new exit west 


0560 




STA 


EXITAB+117 


0570 




JMP 


LK5EE 


;show 


0580 , 










0590 TRl 


CMP 


B$18 


;stairwell 


0600 




BNE 


TR4 


jno 


0610 




LDA 


DO 




0620 




CMP 


BS17 


;knob 


0630 




BNE 


TR3 


; 'Can't' 


0640 




LDA 


FD 


;flip flag 


0650 




EOR 


Bl 


jelectric floor 


0660 




STA 


FD 




0670 TR5 


JMP 


PCLIK 


jsay 'Click' 


0680 TR4 


CMP 


aSOE 


;stairwell 


0690 




BEQ 


TR5 


;just 'Click' 


0700 




CMP 


B$OA 


;west end? 


0710 




BEQ 


TR5 


;yes 


0720 TR6 


CMP 


B9 


;ape roon? 


0730 




BNE 


TR3 


;no 


0740 




LDA 


DO 




0750 




CMP 


BS17 


;knob 


0760 




BNE 


TR3 


; 'Can't ' 


0770 




LDA 


BO 


;loose ape! 


0780 




STA 


FI 




0790 




JSR 


PCLIK 


; 'Click' 


0800 




LDA 


B$20 


:sDuth exit 


0810 




STA 


EKITAB+55 jnow 


0820 




JMP 


LKSEE 




0830 ; 










0840 ; 


fl 


ip switch 




0850 ; 










0860 DFLI LDA NHERE 


;roon? 


0870 




CMP 


B$OF 


;of f ice? 


0880 




BNE 


FCH 


; no 


0890 




LDA 


FA 


;is safe visible 


0900 




BNE 


FEU 


;yes 


0910 




LDA 


DO 




0920 




CMP 


B$19 


;switch? 


0930 




BEQ 


FES 


;yes 


0940 FEU 


JMP 


NOSPEC 


; ' Nothng happns 


0950 FES 


LDA 


0BJTBL+$13 ;have it 


0960 




CMP 


B$80 




0970 




BEQ 


FET 


jyes 


0980 




JMP 


HAUNT 




0990 FET 


LDA 


FB 


jopened before? 


1000 




BNE 


FEU 


; no 


1010 




JMP 


PDON 


J ' Done ' 


1020 FEU 


EOR 


Bl 


jset flag 


1030 




STA 


FB 




1040 




LDA 


B50F 


ishow rod 


1050 




STA 


OBJTBL+SOF 



JUNE A.N.A.L.O.B. Computing 



1060 


PRINT M29 


; 'Safe open' 


1970 


J5R 


PCLIK 


; 'Click' 


1880 


J MP 


LK5EE 




1090 ; 








1100 FCH CMP 


ttsio 


;cheM lab? 


1118 


BNE 


FEU 


;no 


1120 


LDA 


DO 




1138 


CMP 


»Si.3 


;switch? 


1140 


BNE 


FEy 


; no 


1150 


LDfi 


FG 


;X-ray nachine 


1150 


EOR 


«1 




1178 


STfl 


FG 


;fall through 


1180 PCLIK 


PRINT M28 ; ■ .Click. . ■ 


1190 


RTS 






1200 ; 








1210 jExanine soneth 


ing 


1220 ; 








1230 DEXA LDA DO 




1240 


CMP 


«S13 


jelectronic 


1250 


BNE 


EEl 


;device? 


1260 


LDA 


0BJTBL+$13 


1270 


CMP 


tt$80 




1280 


BNE 


EUB 




1290 


PRINT M30 


; "Onz-Off switcl 


1300 


RTS 






1310 EEl 


CMP 


»$ee 


;baton? 


1320 


BNE 


EE2 




1330 


LDfl 


OBJTBL+6 


1340 


CMP 


»$80 




1350 


BEQ 


EE3 




1360 EWB 


JMP 


HAUNT 


; 'Haven't got' 


1370 EE3 


PRINT M54 


; 'Gravity 


1388 


RTS 




; switch ' 


1398 EE2 


PRINT M12 


; 'Nothing • 


1480 


RTS 






1410 ; 








1420 ;Have an object 




1430 ; 








1440 DMfty LDK DO 


;haue it? 


1450 


LDA 


OBJTBL, 


« 


1460 


CMP 


»$80 




1470 


BEQ 


MAI 


;yes 


1480 


JMP 


HAUNT 


; ' Don ' t have ' 


1490 Wfll 


CPK 


»e 


;baton? 


1500 


BNE 


NOSPEC 


; 'Nothing' 


1510 


LDA 


MHERE 




1520 


CMP 


«$17 


;in right rooM? 


1530 


BEQ 


NA4 




1540 N05PEC 


PRINT M18 ; 'Nothing 


1550 


RTS 




;special ' 


1560 HA4 


LDA 


FF 


;flip flag 


1570 


EOR 


ttl 




1588 


STA 


FF 




1590 


BEQ 


MA 2 




1600 


LDA 


aSFF 


:close exit 


1610 NA3 


STA 


EXITAB+140 


1620 


JMP 


LKSEE 




1630 Mfl2 


LDA 


nSie 


;open east 


1640 


BNE 


MA3 


;exit 


1650 


RTS 






1660 ; 








1670 ;Shoot the With the gun 


1680 ; 








1690 D5H0 LDO 


no 


;Message flag 


1700 


STA 


FK 


; for CKMITH 


1710 


LDA 


DO 




1720 


CMP 


«S1A 


;shoot robot? 


1730 


BNE 


GAP 


;no 


1740 5F2 


LDA 


ni 


;set flags 


1750 


STA 


MITHF 


;auto MITH 


1760 


LDA 


a5 


jgun 


1770 


STA 


PO 


;as prep object 


1780 


JMP 


5F1 


;check it out 


1790 GAP 


CMP 


«$24 


;shoot ape? 


1800 


BEQ 


5F2 


; yes 


1810 


LDA 


DO 


; shoot gun? 


1820 


CMP 


tt505 




1830 


BNE 


SFl 




1840 


PRINT M50 


; -At what?' 


1858 


RTS 






1868 5F1 


LDA 


MHERE 




1870 


CMP 


»S1A 


Jin robot rooM? 


1880 


BNE 


SAPE 


J no 


1898 


LDK 


ttSlA 


;robot=DO 


1908 


LDY 


ttSOS 


;gun :=P0 


1910 


JSR 


CKMITH 


; check it 


1920 


LDA 


FJ 


;robot alive? 


1930 


BNE 


SS3 


;yes 


1940 555 


JMP 


MHAFOR 


; 'Mhat for?' 


1950 553 


LDA 


RANDOM 


;see if hit 


I960 


CMP 


»108 




1970 


BCS 


552 


;Miss 


1980 


LDA 


ttO 


;a hit 



1990 




STA 


FJ 


jrobot dead 


2600 




LDA 


tt <D1F 


jchange Message 


2010 




STA 


ROBROM 




2020 




LDA 


« >D1F 




2030 




STA 


ROBROM+1 


2040 




JMP 


LKSEE 


;show it 


2050 


/ 








2060 


S52 


PRINT M33 


; 'You Missed" 


2070 




LDA 


RANDOM 


;see if robot 


2060 




CMP 


»1S0 


;hits 


2090 




BCC 


SS4 




2100 




PRINT M35 


jrobot Missed 


2110 




RTS 






2120 


554 


LDA 


»0 


;gotcha! 


2130 




JMP 


DEAD 




2140 


1 








2150 


SAPE CMP a9 


jape rooM? 


2160 




BEQ 


SAPl 


J yes 


2170 




JMP 


NOCAN 


J 'Can't do that' 


2180 


SAPl LDX tt$24 


jape =D0 


2190 




LDY 


«5 


jgun =P0 


2200 




JSR 


CKMITH 


jcheck Mostly 


2210 




LDA 


FI 


J for ownership 


2220 




BEQ 


SJl 


J is ape out? 


2230 




JMP 


NOTVT 


jno->'Not yet' 


2240 


SJl 


LDA 


F6 


jalive ape? 


2250 




BEQ 


SS5 


J no 


2260 




LDA 


RANDOM 


Jhit or Miss? 


2270 




CMP 


ttl65 




2280 




BCC 


5A2 




2290 




LDA 


no 


jone dead ape 


2300 




STA 


F6 




2310 




JMP 


LKSEE 


jtell us all 


2320 


SA2 


PRINT M33 


J 'You Missed' 


2330 




LDA 


RANDOM 


jsee if ape 


2340 




CMP 


«150 


jgets you 


2350 




BCS 


5A3 


jyes 


2360 




PRINT M37 


J 'Charging' 


2370 




RTS 






2380 


SA3 


LDA 


ttl 


J 'Crushed! ' 


2390 




JMP 


DEAD 




2400 


i 








2410 


;Check! 


correct 


Direct Object, 


2420 


; Prepos 


tional Object, use of 


2430 


; 'MITH' 


and ownership of PO 


2440 


jEnter with K=test value of DO 


2450 


;v= 


test value of PO 


2460 










2470 


CKMITH CPX DO 


JK = DO? 


2480 




BNE 


MPl 


J nawh 


2490 




CPV 


PO 


JY = PO? 


2500 




BNE 


MP2 




2510 




LDA 


OBJTBL, V 


jhave Y? 


2520 




CMP 


USSO 




2530 




BNE 


MP3 


jno 


2540 




LDA 


MITHF 


J say 'MITH'? 


2550 




BEQ 


MP2 


J no 


2560 




RTS 




J go ahead 


2570 


MPl 


PLA 




jpull return 


2580 




PLA 






2590 




JMP 


MHAFOR 


J 'Mhat for?' 


2600 


t 








2610 


MP 2 


PLA 




jpull return 


2620 




PLA 






2630 




LDA 


FK 


jnessage flag 


2640 




BEQ 


MPS 




2650 




JMP 


NOTVT 


J 'Not yet' 


2660 


MPS 


JMP 


NOCAN 


J 'Can't do' 


2670 


/ 








2680 


MP3 


PLA 






2590 




PLA 






2700 




JMP 


HAUNT 


J 'Haven't got ' 


2710 










2720 


;Li 


ft the plant 




2730 










2740 


DLIF LDO 


MHERE 


Jin stairs? 


2750 




CMP 


«$0D 




2760 




BNE 


MHAFOR 


J no ! 


2770 




LDA 


DO 




2780 




CMP 


U$26 


jplant? 


2790 




BNE 


MHAFOR 


jso why do it? 


2800 




LDA 


F5 


J lift before? 


2810 




BEQ 


MHAFOR 


J yes 


2820 




EOR 


ttl 


jset flag 


2838 




STA 


F5 




2840 




LDA 


ttSOD 


jshow key 


2850 




STA 


0BJTBL+$11 


2868 




JMP 


LKSEE 


jshow us 


2870 


MHAFOR 


PRINT M27 ; 'Mhat for?' 


2880 




RTS 






2898 










2900 


;Moue an 


object 




2910 











JUNE A.N.A.L.O.Q. Computing 



Su ^ 



2920 


DMOU LDft WHERE 




2930 




CMP 


ttSOF 


; office? 


2940 




BNE 


MVC 


; no 


295G 




LDA 


DO 




2960 




CMP 


«$Z9 


jpicture? 


297G 




BEQ 


MU2 


;yup 


2980 


MUl 


JMP 


NOCftN 


;no can do 


2990 


MUZ 


LDA 


FA 


;safe already 


3000 




BEQ 


PDON 


juisible? 


3010 




EOR 


ai 


;no. set flag 


3029 




STft 


FA 




3030 




LDA 


» <D5ftF 


;say it 


3840 




5Tft 


SAFRGM 




3050 




LDA 


« >DSftF 




3060 




STft 


SAFROM+1 




3070 




JMP 


LKSEE 




3080 


i 








3090 


PDON PRINT MZ 


; "Done" 


3100 




RTS 






3110 


• 








3120 


MUC 


CMP 


«S1B 


; storage? 


3130 




BNE 


MUl 


; no 


3140 




LDA 


DO 




3150 




CMP 


tt$lB 


jcabinet? 


3160 




BNE 


MUl 


;no 


3170 




LDA 


FC 


;noved before? 


3180 




BEQ 


PDON 


J yes 


3190 




EOR 


«1 




3200 




STft 


FC 


;set flag 


3210 




LDA 


«51D 


jshow exit down 


3220 




STA 


EXITftB+167 


3230 




JMP 


LKSEE 




3240 










3250 


jPush (or PressJ 


buttons 


3260 










3270 


DPU5 LDfl WHERE 


;storage? 


3280 




CMP 


«7 




3290 




BNE 


PS2 


;no 


3380 




LDA 


DO 




3318 




CMP 


«$27 


;red button? 


3328 




BNE 


PS3 




3330 




LDA 


»0 


;turn off lasers 


3340 


PS4 


STA 


F2 




3350 




JMP 


PCLIK 


; 'Click- 


3360 


P53 


CMP 


»$2e 


;blue? 


3370 




BEQ 


PSl 


;yes 


3380 


PS6 


JMP 


NOCAN 


; ' Can ■ t ' 


3390 


P51 


LDA 


ai 


;turn lasers on 


3400 




BNE 


P54 




3410 


P52 


CMP 


a$iD 


; snail rooM 


3420 




BNE 


PS6 


; Cairlock) 


3430 




LDA 


DO 




3440 




CMP 


a528 


jblue button 


3450 




BNE 


PS6 


; no 


3460 




LDft 


asiE 


jopen east 


3470 




STft 


EKITAB+176 


3480 




LDft 


a$FF 


;close north 


3490 




STft 


EXITAB+174 


3500 




JSR 


PCLIK 


; 'Click' 


3510 




JMP 


LKSEE 




3520 










3530 


; Player' 


s Inuentory 


3540 










3550 


INyENT LDX «0 


; ' You haue ! ' 


3560 


ILL 


LDA 


YOUH,K 




3570 




STft 


IBUF,K 




3580 




INK 






3590 




CPX 


ai0 




3600 




BNE 


ILL 




3610 




LDY 


ao 


;see which ones 


3620 


ILQ 


LDA 


OBJTBL,Y 


;you own 


3630 




CMP 


a$80 




3640 




BNE 


ILN 


;no this one 


3650 




TYft 






3660 




PHft 




;save Y 


3670 




ASL 


A 


;x2 for an 


3680 




TftV 




;of fset 


3690 




LDft 


OBJNAM,Y 


; into nanes 


3700 




STft 


SL 




3710 




LDft 


OBJNAM+1 


.Y 


3720 




STft 


SL + 1 




3730 




LDY 


ao 


;noue name 


3740 


ILM 


LDft 


CSL),Y 


;to buffer 


3750 




BEQ 


ILP 


;done at 


3760 




STA 


IBUF,K 




3770 




INX 






3780 




INY 






3790 




BNE 


ILM 




3800 


ILP 


LDA 


a', 


; put in ' , ' 


3810 




STA 


IBUF^X 




3820 




INK 






3830 




LDft 


aS20 




3840 




STft 


IBUF.X 




3850 




INX 







3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
4510 
4520 
4530 
4540 
4550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
4730 
4740 
4750 
4750 
4770 
4780 
4790 



PLft 

TAY 

ILN INY 



;get Y 



jnext object 

;at end? 

;no 

;X still 10? 

; no 

;Must have 

; 'Nothing! ' 



CPY aNUMSHO 
BNE ILQ 

CPX aie 

BNE ILW 

LDY 80 
HOH LDft NOTH,Y 

STA IBUF,X 

INX 

INY 

CPY 810 

BNE NOH 

JMP ILU jprint it 
ILW LDft 80 ;put in 'EOL' 

STA IBUF-1,X 

LDA aS20 jerase last , 

STft IBUF-2,K 
ILU PRINT IBUF jprint it 

RTS 
t 

jYou have failed the Mission 
;Entep with ft = type of death 

DEAD ASL A ;X2 

TAX ;offset 

LDft DEflDTAB+l,X ;get Message 
TAY ;high byte 

LDft DEADTftB,X 

TAX ;low Of address 
JSR PRINTE jprint it 
PRINT M41 J 'Failed' 
JMP WHftNOW 

J 

jBefore allowing a turn see if 
jthe playen is in the ape or 
jrobot rooM. Don't allow then to 
jMove out. 



ftPEROB 
CMP 
BNE 
LDA 
BNE 
RTS 

EYA JSR 
LDft 
BNE 
LDft 
CMP 
BNE 
JMP 

EYB LDft 
CMP 
BCC 
LDft 
JMP 

EYC PR 
PLft 
PLA 
JMP 

DOftPE C 
BNE 
LDft 
BNE 
LDA 
BEQ 
JSR 
LDA 
BNE 
LDA 
CMP 
BNE 
JMP 

EYD LDA 
CMP 
BCS 
PLA 
PLA 
LDA 
JMP 

NOEN RT 



LDA WHERE 
a$lA ; 
DOftPE ; 
FJ J 
EYA i 

INTPRET J 

ERFLG ; 

EYB i 

UP ; 

a$Oft ; 

EYB J 

DSHO J 

RftNDOM ) 

8200 

EYC 

80 ; 

DEftD J 
INT M35 1 



With robot? 

no 

robot alive? 

yes 

whew! 

get connand 

test for error 

error 

get verb a 

shoot? 

nope 

goto shoot 

robot shoots 



;hit you 
Idone for 
irobot Misses 
ipull return 



DOIN 

MP 89 
NOEN 
FI 

NOEN 
F6 

NOEN 
INTPRET 
ERFLG 
EYD 
UP 

a$OA 
EYD 
DSHO 
RANDOM 
8130 
NOEN 



jget input 

jape rooM? 

J no 

Jin cage? 

jyes 

J alive? 

J dead 

jget coMMand 

J error 

jget verb 8 

jshoot? 

J no 

J do shoot 

jsee if ape 

J gets you 

jescape for now 



81 
DEAD 



jcrushes you 



jCheck for traps in 
juarious roons 

CKDEAD LDA WHERE 

CMP 85 Jhallway? 

BNE DIZ 

LDA F2 J lasers on? 

BEQ CDOK jno 

LDft 85 Jblasted! 



JUNE A.IM.A.L.a.Q. CompuCing 



4800 




JMP 


DEflD 




4810 


CDOK RT5 


;ok so far 


4820 


DI2 


CMP 


tt$17 


; security? 


4830 




BNE 


DI3 




4840 




LDft 


FD 


jelectric floor 


4850 




BEO 


CDOK 


;ok 


4860 




LDfl 


«2 


J Zzzzzit 


4870 




JMP 


DEflD 




4880 


DI3 


CMP 


ttSll 


jK-ray rooH? 


4890 




BNE 


DI4 




4900 




LDfl 


FG 


;switch 


4910 




BNE 


CDOK 


;of f ! 


4920 




LDfl 


n4 


jradiation 


4930 




JMP 


DEflD 




4940 


DI4 


CMP 


8$12 


; security? 


4950 




BNE 


DI5 




4960 




LDfl 


FH 


;gas Mask on? 


4970 




BEQ 


CDOK 


jyes 


4980 




LDfl 


«3 


;poison gas 


4990 




JMP 


DEflD 




5000 


DI5 


CMP 


ttSlE 


; tunnel? 


5010 




BNE 


CDOK 




5020 




LDfl 


FE 


jwearing scuba? 


5030 




BEQ 


CDOK 




5040 




LDfl 


B6 


; drowned 


5050 




JMP 


DEflD 




5060 










5070 


jCheck the status of objects 


5080 


land show the score 


5090 










5100 


D05C0R LDfl OO 


jzero 


5110 




5Tfl 


SCORE 




5120 




LDY 


«4 


jcheck for the 


5130 


DYA 


LDfl 


OBJTBL+50A,Y 


5140 




CMP 


ttS80 


;4 objects 


5150 




BEQ 


UPO 




5160 


DVB 


DEY 






5170 




BPL 


DYfl 




5188 




LDfl 


OBJTBL+SOC Jdon't 


5190 




CMP 


«580 


; count MeMO 


5200 




BHE 


DYC 


jnext tine 


5210 




DEC 


SCORE 


; t-1 for Meno) 


5220 


DYC 


LDfl 


SCORE 


;l'll put then 


5238 




ORfl 


n$18 


;next to one 


5240 




STfl 


PLfiCE+37 


; another 


5250 




HT5 




;show score 


5260 


UPO 


INC 


SCORE 


jplus 1 


5270 




JMP 


DYB 




5288 










5290 


jSee if 


you've won after an 


5300 


;escape 


froH the 


lab 


5310 










5328 


ENDGAM 


PRINT M42 ; "Escaped- 


5338 




INC 


R0WCR5 




5340 




LDfl 


SCORE 


; win? 


5358 




CMP 


tt4 




5368 




BNE 


NOUIN 




5370 




PRINT M44 


/You won! 


5380 


ENL 


JMP 


ENL 




5390 


NOWIN PRINT M41 jnot quite 


5400 




JMP 


MHflNOH 




5418 










5428 


;Saue initial condition in 


5438 


;the event of a 


restart 


5448 










5450 


KEEP LDft « <SflUST ;start of 


5468 




STfl 


J 


;data 


5470 




LDfl 


« >SflUST 




5480 




STfl 


J + 1 




5490 




LDfl 


» <HOLD 


/backup area 


5500 




STfl 


ML 




5510 




LDfl 


« >HOLD 




5520 




STfl 


ML+1 




5530 


KK3 


LDY 


no 


jone byte at 


5540 




LDfl 


CJ),Y 


;a tiMe 


5550 




STfl 


CML),Y 




5560 




INC 


ML 


jbUMp pointers 


5570 




BNE 


KKl 




5S80 




INC 


ML+1 




5590 


KKl 


INC 


J 




5600 




BNE 


KK2 




5610 




INC 


J + 1 




5628 


KK2 


LDfl 


J + 1 


J at the 


5638 




CMP 


n >SflUEN 


;end yet? 


5648 




BNE 


KK3 




5658 




LDfl 


J 




5668 




CMP 


n <SAUEN 




5678 




BNE 


KK3 




5688 




RTS 




;done 


5690 


; 








5700 


;0k 


Sonething happened to 


5710 


jbr 


ing us here. 


Either press 


5720 


JSTART or 5Y5TEM 


RESET 


5730 











5740 


WHflNOH PRINT M49 ; Press START 


5750 


NNM 


LDA CONSOL , 


Check consol 


5760 




CMP ne 




START? 


5778 




BEQ REDO 


try again 


5788 




BNE NNW 




5798 


REDO LDfl « <SAUST ; Move data 


5888 




STfl J 




back to 


5818 




LDfl a 


>SflyST 


; where the 


5828 




STfl J+1 


prograM can 


5838 




LDA » 


<HOLD 


use it 


5848 




STfl ML 




5858 




LDfl « 


>HOLD 




5860 




STfl ML+1 




5870 


KRl 


LDY m 






5888 




LDfl CML),Y 




5898 




STfl CJ3,Y 




5988 




INC ML 




5918 




BNE KR2 




5928 




INC ML+1 




5938 


KR2 


INC J 






5940 




BNE KR3 




5950 




INC J+1 




5960 


KR3 


LDfl J+1 


done yet? 


5970 




CMP « 


>5flUEN 




5980 




BNE KRl 




5990 




LDfl J 






6808 




CMP tt 


<SflUEN 




5810 




BNE KRl 




6828 




JMP BEGIN , 


start over 


6030 










6048 


jData 






5058 










6060 


SINGLE .BYTE "N5EHUD" 


6070 


INTOB .BYTE "INTO " 


6080 


WITHB .BYTE "WITH " 


6090 


THE 


.BYTE 


"THE " 




6100 










6110 


;Table of 


ROOM Nanes 


6120 










6130 


ROOMTAB .WORD R8 


;0 outside 


6140 




.WORD 


Rl 


1 entrance 


6150 




.WORD 


R2 


2 reception 


6160 




.WORD 


R3 


3 conference 


6170 




.WORD 


R4 


4 kitchn 


6180 




.WORD 


R5 


5 security 


6190 




.WORD 


R6 


6 experiMent 


6208 




.WORD 


R7 


7 storage 


6218 




.WORD 


R7 


8 storage 


6220 




.WORD 


R8 


9 an i Mai 


6238 




.WORD 


R9 


a west end 


6248 




.WORD 


Rfl 


b hallway 


6250 




.WORD 


RB 


c cafeteria 


6260 




.WORD 


RC 


d stairwell 


6270 




.WORD 


RC 


e stairwell 


6280 




.WORD 


RD 


f office 


6290 




.WORD 


RE 


10 cheM lab 


6300 




.WORD 


RF 


11 x-ray 


6310 




.WORD 


R5 


12 security 


6320 




.WORD 


RC 


13 stairwell 


6330 




.WORD 


RG 


14 coMputer 


6340 




.WORD 


RH 


IS photo lab 


6350 




.WORD 


R7 


16 storage 


6388 




.WORD 


R5 


17 security 


6378 




.WORD 


RC 


18 stairwell 


6388 




.WORD 


RD 


19 office 


6398 




.WORD 


R5 


la security 


6400 




.WORD 


R7 


lb storage 


6418 




.WORD 


RI 


;lc electronic 


6420 




.WORD 


RJ 


;ld SMalKair] 


6438 




■ WORD 


RK 


;le tunnel 


6448 




.WORD 


RL 


jspacer not use 


6458 




.WORD 


HL 


20 cage 


6468 










6470 


jDi 


rection table 


for nanes 


6480 










6490 


DIRECT .WORD KNO 


R jnorth 


6500 




.WORD 


XSOU 


; south 


6518 




.WORD 


KEAS 


;east 


6528 




.WORD 


KWE5 


; west 


6530 




.WORD 


KUP 


up 


6548 




.WORD 


XDOW 


down 


6558 


■ 








6568 


SAVST ; 




start of save 


6578 


• 








6588 


WHERE .DS 


1 


jcurrent rooM 


6598 


CARRY .DS 


1 


» objs carried 


6608 


SCORE .DS 


1 


;what else? 


6618 










6620 


;0b 


ject Location 


Table 


6630 










6648 


;e- 


31 = In a Roo 


n 


6658 


;SFF = Not Uisi 


ble 


6668 


;S80 = Owned by 


Player 


6678 
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6680 
6690 
6700 
6710 
6720 
6730 
6740 
6750 
6760 
6770 
6780 
6790 
6800 
6810 
6820 
6830 
6840 
6850 
6860 
6870 
6880 
6890 
6980 
6910 
6920 
6930 
6940 
6950 
6960 
6970 
6980 
6990 
7000 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
7100 
7110 
7120 
7130 
7140 
7150 
7160 
7170 
7180 
7190 
7200 
7210 
7220 
7230 
7240 
7250 
7260 
7270 
7280 
7290 
7300 
7310 
7320 
7330 
7340 
7350 
7350 
7370 
7380 
7390 
7400 
7410 
7420 
7430 
7440 
7450 
7460 
7470 
7480 
7490 
7500 
7510 
7520 
7530 
7540 
7550 
7560 
7570 
7580 
7590 
7600 



OBJTBL 

.BVT 
.BVT 
• BYT 
.BYT 
.BVT 
.BYT 
.BYT 
.BYT 
.BYT 
.BYT 
.BYT 
.BYT 
.BYT 
.BVT 
.BVT 
.BVT 
.BVT 
.BVT 
.BVT 
.BYT 
.BVT 
.BYT 



BYTE $FF 
E $FF 
E $FF 
E 3 
E $20 
E SFF 
E SFF 
E 8 
E SFF 
E 6 
E SFF 
E SFF 
E SOF 
E SFF 
E SFF 
E SFF 
E SFF 
E SFF 
E S16 
E Sic 
E Sic 
E SFF 
E SFF 



; badge 

nai 1 f i le 

card 

pad 

disk E 

gun 

baton 

box 

gas nask 

folder 

vial 

fOTMUla 

neno 

nicrodot 

progran 

rod 

coin 

snail kei; 

scub 

elec 

flash 

lar k 

conbo IH-^»I 



10 



15 



20 



jTable of Exits 



;SFF=noexit tt = roons 



EHITflB .BVTE S 

.BYTE SFF, 

.BYTE $02, 

.BYTE SFF, 

.BYTE SFF, 

.BYTE SFF, 

.BYTE $01, 

.BYTE SFF, 

.BYTE SFF, 

.BVTE SFF, 

.BYTE $04, 

.BYTE SFF, 

.BYTE SFF, 

.BYTE SFF, 

.BYTE $03, 

.BYTE SFF, 

.BYTE S06, 

.BYTE SFF, 

.BYTE SOA, 

.BYTE SFF, 

.BYTE SOD, 

.BYTE SFF, 

.BYTE SOC,j 

.BYTE SFF,S 

.BYTE $FF,S 

.BYTE SFF,S 

.BYTE SFF,' 

■BYTE SOE,, 

.BYTE SFF,! 

.BYTE SFF,' 

.BYTE $17, 

.BYTE SFF, 

.BYTE SFF, 

.BYTE SFF,i 

.BYTE SFF,S 

.BYTE $FF,$ 

.BYTE Sll,S 

.BYTE SFF,* 

.BYTE S12, 

.BYTE SFF, 

.BYTE SFF, 

.BYTE SFF, 

.BYTE SlO, 

.BYTE SFF, 

.BVTE SOF, 

.BYTE SFF, 

.BYTE SFF, 

.BYTE SFF, 

.BYTE SFF, 

.BYTE SOD, 

.BYTE SFF, 

.BYTE SFF, 

.BYTE $18, 

.BYTE SFF, 

.BYTE Sift, 

.BYTE SFF, 

.BYTE $19, 

.BYTE SFF, 

.BYTE SlB, 

.BYTE SFF. 

.BYTE SFF, 

.BYTE SFF, 

.BYTE SFF, 

•BYTE SFF 

.BYTE $09 



FF, SFF, SFF, $01 



SFF 


;0 outside 


$03, 


SFF, $05 


SFF 


;l entrance 


SOI, 


SFF, SFF 


SFF 


;2 reception 


$07, 


SFF, SFF 


SFF 


;3 conference 


$05, 


$FF,SOC 


SFF 


;4 kitchen 


SFF, 


$01, SOB 


SFF 


;5 security 


$08, 


$FF,S09 


SFF 


;6 experiMent 


SFF, 


SFF, SFF 


SFF 


;7 storage 


SFF, 


SFF, SFF 


SFF 


;8 storage 


SFF, 


$06, SFF 


SFF 


; 9 aninal 


$09, 


$0B,SFF 


SFF 


;a west end 


SFF, 


SG5,S0ft 


SFF 


;b hallway 


SOB, 


$04, SFF 


SFF 


jc cafeteria 


Soft, 


SFF, SFF 


$18 


;d stairs 


SFF 


S17,SfF 


SOD 


;e stairs 


$16 


SFF, SFF 


SFF 


; f office 


SFF 


Sll,$17 


SFF 


;10 Chen lab 


S12, 


SFF, SlO 


SFF 


;ll x-ray lab 


$13, 


SFF, SFF 


SFF 


;12 security 


SFF, 


SFF, SFF 


S07 


;13 stairs 


SFF, 


S13,SFF 


SFF 


;14 conputer 


SFF, 


$12, SFF 


SFF 


;15 photo lab 


SFF, 


SFF, SFF 


SFF 


;16 storage 


SOF, 


SFF,SOE 


SFF 


;17 security 


Sift, 


SFF, SFF 


SFF 


;18 stairs 


SIC, 


SFF, SFF 


SFF 


J19 office 


SlB, 


Sic, SFF 


SFF 


;la security 


SFF, 


SFF, SFF 


SFF 


;lb storage 


SFF, 


SFF, Sift 


SFF 


;lc electronic 


SFF, 


SFF, SFF 


SFF 


;ld snail roon 


SFF, 


$21, SFF 


SFF 


;le tunnel 


SFF, 


SFF, SFF 


SFF 


;S21 out! 



SFF, SFF, SFF 



7610 




BVTE 


SFF, SFF ;S20 cage 


7620 








7630 


jFlag Table 


7640 








7650 


Fl 


BVTE 


1 ;desk R2 lock 


7660 


F2 


BVTE 


1 ; lasers RS on 


7670 


F3 


BYTE 


1 jvend nach R4 


7680 


FS 


BVTE 


1 ;plant Rd key 


7696 


F6 


BVTE 


1 ;ape alive R9 


7700 


F7 


BVTE 


1 ;desk Rl 


7710 


F8 


BVTE 


1 ;cabinet R19 


7720 


F9 


BVTE 


1 jbox - gas 


7730 


Fft 


BVTE 


1 jpicture noved 


7740 


FB 


.BYTE 


1 ;safe Rf 


7750 


FC 


.BYTE 


1 ;cabinet noved 


7760 


FD 


.BYTE 


1 ;elect. floor 


7770 


FE 


.BYTE 


1 ;wear scuba 


7780 


FF 


.BYTE 


1 jdoor 


7790 


FG 


.BVTE 


1 ;x-rays 


7800 


FH 


.BYTE 


1 ;wear gas nask 


7810 


FI 


.BYTE 


1 jape in cage 


7820 


FJ 


.BYTE 


1 jrobot alive 


7830 


FK 


.BYTE 


1 jshoot nsg 


7840 


FM 


.BYTE 


1 jused conbinat 


7850 


FN 


.BYTE 


1 jused large key 


7860 


/ 






7870 


5AUEN ; 


end of save 


7880 


• 






7890 


jTables of offsets into 


7900 


jthe 


table of Exits 


7910 


jMultiples of 6 


7920 


; 






7930 


EKOF 


.BYTE 0,6,12,18,24 


7940 




.BYTE 


30,36,42,48,54 


7950 




.BYTE 


60,65,72,78,84 


7960 




.BYTE 


90,96,102,108,114 


7970 




.BYTE 


120,126,132,138,144 


7980 




.BYTE 


150,156,152,168,174 


7990 




.BYTE 


180,186,192,198,204 


8000 








8010 


jUerb Table - only the 


8020 


;first 3 


etters are used 


8030 








8040 


UERBT .BYTE "GETDROOPEREftlNS" 


8050 




.BYTE 


"MEATURFLIEKAMAU5H0" 


8060 




.BYTE 


"TAKLIFM0UPU5UNLPRE" 


8070 




.BYTE 


"PUT" 


8080 








8090 


jNoun Table - first 3 letters 


8100 








8110 


NOUHT .BYTE "BADNfilCARPftDDIS" 


8120 




.BYTE 


"GUNBATB0KGA5F0LUIA" 


8130 




.BYTE 


"FORMEMMICPRORODCOI" 


8140 




.BYTE 


"SMA5CUELEFLALARC0M" 


8150 




.BYTE 


"KN0H005MIR0BCABDE5" 


8160 




.BYTE 


"SAFSLOCAGLEULOCVEN" 


8170 




.BYTE 


"MACAPEDOOPLftREDBLU" 


8180 




.BYTE 


"PICENLDRIHOLALL" 


8190 








8200 


jObj 


ects 




8210 








8220 


6b0 


.BYTE 


"badge", 


8230 


0B1 


.BYTE 


"nailf ile",8 


8240 


0B2 


.BYTE 


"card",0 


8250 


083 


.BYTE 


"pad",0 


8260 


0B4 


.BYTE 


"disk",0 


8270 


0B5 


.BYTE 


"gun", 9 


8280 


086 


.BYTE 


"baton", B 


8290 


087 


.BYTE 


"box", 


8300 


0B8 


.BYTE 


"gas nask", 8 


8310 


089 


.BYTE 


"folder", 


8320 


OBA 


.BYTE 


"vial",0 


8330 


OBB 


.BYTE 


"fornula",0 


8340 


OBC 


.BYTE 


"neno",0 


8350 


OBD 


.BYTE 


"nicrodot", 


8360 


OBE 


.BYTE 


"progran",0 


8370 


OBF 


.BYTE 


"rod", 8 


8380 


OBG 


.BYTE 


"coin",0 


8390 


OBH 


.BYTE 


"snail key",0 


8400 


OBI 


.BYTE 


"scuba gear",© 


8410 


OBJ 


.BYTE 


"electronic device" 


8420 




.BYTE 





8430 


DBK 


.BYTE 


"flashing ball",o 


8440 


OBL 


.BYTE 


"large key",0 


8450 


OBM 


.BYTE 


"conbination", 


8460 








8470 


JTable for the object nanes 


8480 








8490 


OBJNAM .MORD OBO 


8500 




.MORD 


OBI 


8510 




.MORD 


0B2 


8520 




.MORD 


0B3 


8530 




.MORD 


0B4 
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8540 


.MORD 


0B5 


8550 


.MORD 


0B6 


8560 


■ MORD 


0B7 


8570 


.HORD 


0B8 


8580 


.MORD 


0B9 


8590 


.UORD 


OBA 


8600 


.MORD 


OBB 


8610 


.MORD 


OBC 


8620 


.MORD 


OBD 


8630 


■ MORD 


OBE 


8640 


.MORD 


OBF 


8650 


.MORD 


OBG 


8660 


.MORD 


QBH 


8670 


.MORD 


OBI 


8680 


.MORD 


OBJ 


8690 


.MORD 


OBK 


8700 


.MORD 


OBL 


8710 


.MORD 


OBH 



LISTING 4: ASSEMBLY 



0100 
0110 
0120 
0130 
0140 
0150 
0160 
8170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
OZSO 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
8450 
0460 
0470 
0480 
0490 
OSOO 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0580 
0590 
0600 
0610 
0620 
0630 
0640 
0650 
0660 
0670 
0680 
0690 
0700 
0710 
8720 
0730 
0740 
0750 
0760 
0770 
0780 
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Cursive Character 5et 
for Secret Agent 



This is the first half 
of the Character Set 



»= CH 
• BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 

■ BYTE 
.BYTE 
.BYTE 
.BYTE 

■ BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 

■ BYTE 

■ BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



SET 
$00, $00, 

S0O,$00, 

$00,518, 
$18, $00, 
$00, $66, 
$00, $00, 
$00, $66, 
$66,$FF, 
$18,$3E, 
$06,$7C, 
$00, $66, 
$30, $66, 
$1C,$36, 
$6F,$66, 
$00, $18, 
$00, $00, 
$OO,$0E, 
S18,$1C, 
$00, $70, 
$18, $38, 
$00, $66, 
S3C,$65, 
$00, $18, 
$18, $18, 
$00, $00, 
$00, $18, 
$00, $00, 
$08, $00, 
$00, $00, 
$00, $18, 
$00, $06, 
$30,560, 
$B0,S3C, 
$76, $66, 
$00, $18, 
$1B,S1B, 
SeO,S3C, 
$18,530, 
S00,$7E, 
$0C,$66, 

$00jS0C, 

$6C,S7E, 

$oe,$7E, 

$06, $66, 
$0O,$3C, 
$66, $56, 
S00,$7E, 
$18, $30, 
$O0,S3C, 
$66, $66, 
$00,$3C, 
$06,$OC, 
$00, $00, 
$00, $18, 
$00, $00, 
$00,518, 
$06,$0C, 



500,500 
500,500 
$18, $18 
518, $00 
566,566 
500,500 
5FF,566 
566,500 
560, 53C 
518,500 
566,518 
546,500 
5lC,538 
538,500 
$18, $18 
500,500 
51C,$18 
50E,500 
538,518 
570,500 
53C,$FF 
500,500 
518, 57E 
500,500 
500,500 
518,530 
$00,57E 
500,500 
$00,500 
518,500 
500,518 
$40,500 
$66,$6E 
530,500 
538,518 
S7E,508 
$66,$ec 
S7E,$00 
$0C,$18 
S3C,$O0 
S1C,$3C 
$0C,$00 
560, 57C 
53C,508 
560, 57C 
53C,500 
$0e,$OC 
530,500 
$66,53C 
$3C,500 
S66,53E 
538,500 
518,518 
$18,500 
518,518 
$18,530 
518,530 



0790 


.BYTE 


518 


$00 


$06 


$00 


0800 


.BYTE 


$00 


$00 


S7E 


$00 


0810 


.BYTE 


$00 


$7E 


$00 


$00 


0820 


.BYTE 


$60 


$30 


$18 


$00 


0830 


.BYTE 


$18 


$30 


$60 


$00 


0840 


.BYTE 


$00 


$30 


$66 


$00 


0850 


.BYTE 


$18 


$00 


$18 


$00 


0860 


.BYTE 


$00 


$3C 


$66 


$6E 


0878 


.BYTE 


$6E 


$60 


$3E 


$00 


0880 


.BYTE 


500 


$1E 


$37 


$67 


0890 


.BYTE 


567 


$6F 


$38 


$00 


0900 


.BYTE 


500 


$1E 


$33 


$73 


0910 


.BYTE 


57E 


$73 


$7F 


$00 


0920 


.BYTE 


500 


$1E 


$33 


$60 


0930 


.BYTE 


560 


570 


$3F 


$00 


0940 


.BYTE 


500 


530 


$66 


$63 


0950 


.BYTE 


563 


563 


$7E 


$00 


0960 


.BYTE 


500 


51E 


$33 


$60 


0970 


.BYTE 


57C 


568 


$7F 


$00 


0988 


.BYTE 


500 


,51E 


$33 


$60 


0990 


.BYTE 


57C 


,560 


$60 


$00 


1000 


.BYTE 


$00 


,S1E 


$33 


$60 


1010 


.BYTE 


$eE 


,563 


$3F 


$00 


1020 


.BYTE 


$00 


,$63 


$63 


,$63 


1030 


.BYTE 


S7F 


,$63 


$63 


,$00 


1040 


.BYTE 


$00 


,$7F 


,$18 


,$18 


1050 


.BYTE 


$18 


,$18 


57F 


$00 


1060 


.BYTE 


$00 


,$03 


503 


$03 


1070 


.BYTE 


$73 


$36 


530 


$00 


1080 


.BYTE 


$00 


$67 


$6E 


$70 


1090 


.BYTE 


$7C 


$60 


$6F 


$00 


1100 


.BYTE 


$00 


$70 


$70 


560 


1110 


.BYTE 


$60 


$63 


$7F 


500 


1120 


.BYTE 


$00 


$63 


$63 


577 


1130 


.BYTE 


$7F 


568 


$63 


$00 


1140 


.BYTE 


$00 


57C 


$76 


$76 


1150 


.BYTE 


576 


576 


$77 


$00 


1160 


.BYTE 


500 


5lC 


$36 


$63 


1170 


.BYTE 


$63 


536 


$10 


$00 


1180 


.BYTE 


$00 


$1E 


$33 


533 


1190 


.BYTE 


$3E 


$30 


$30 


500 


1200 


.BYTE 


$00 


$10 


$36 


$63 


1210 


.BYTE 


$63 


$6F 


$3E 


$03 


1220 


.BYTE 


$00 


$30 


$36 


$36 


1238 


.BYTE 


$3E 


$33 


$33 


$00 


1248 


.BYTE 


$00 


$1E 


$33 


$60 


1250 


.BYTE 


$3E 


$03, 


$7F 


$00 


1260 


.BYTE 


500 


$3F, 


$60 


$60 


1270 


.BYTE 


50C 


$00 


$18 


$00 


1280 


.BYTE 


500 


$33, 


$33, 


$33 


1290 


.BYTE 


$33 


$63, 


$3E 


$00 


1300 


■ BYTE 


$00 


$63, 


$63 


$63 


1310 


.BYTE 


$36 


$3C, 


$18 


$00 


1320 


.BYTE 


$00 


$63, 


$63 


$6B 


1330 


.BYTE 


57F 


$77, 


$63 


$00 


1340 


.BYTE 


$00 


$63 


$66 


$30 


1350 


.BYTE 


$10 


$36 


$63 


$00 


1360 


.BYTE 


$00 


$63 


$63 


$36 


1370 


.BYTE 


$1E 


$00 


$18 


$00 


1388 


.BYTE 


500 


$3F 


$66 


$0C 


1398 


.BYTE 


$18 


$33 


$7E 


$00 


1488 


.BYTE 


$00 


$1E 


$18 


$18 


1418 


.BYTE 


$18 


$18 


$1E 


$00 


1420 


.BYTE 


$00 


$40, 


$60 


$30 


1430 


.BYTE 


$18 


$00 


$06 


$00 


1440 


.BYTE 


$00 


$78 


$18 


$18 


1450 


.BYTE 


$18 


$18 


$78 


$00 


1460 


.BYTE 


500 


$08 


$1C 


$36 


1478 


.BYTE 


$63 


$00 


$00 


$00 


1480 


.BYTE 


$00 


$00 


$00 


$00 


1498 


.BYTE 


$00 


$00 


$FF 


$00 


1588 


.BYTE 


$00 


$36 


$7F 


$7F 


1518 


.BYTE 


$3E 


$10 


$08 


$00 


1520 


.BYTE 


$18 


$18 


$18 


$1F 


1530 


.BYTE 


$1F 


$18 


$18 


$18 


1540 


.BYTE 


$03 


$03 


$03 


503 


1550 


.BYTE 


503 


$03 


$03 


503 


1560 


.BYTE 


518 


$18 


$18 


5F8 


1570 


.BYTE 


5F8 


$00 


$00 


500 


1580 


.BYTE 


518 


$18 


S18 


5F8 


1590 


.BYTE 


5F8 


$18 


$18 


518 


1680 


.BYTE 


500 


$00 


$00 


5F8 


1610 


.BYTE 


5F8 


$18 


$18 


518 


1620 


.BYTE 


503 


$07 


$0E 


510 


1630 


■ BYTE 


538 


$70 


$E0 


500 


1640 


■ BYTE 


500 


$E0 


$70 


538 


1650 


.BYTE 


510 


$0E 


$07 


503 


1660 


.BYTE 


501 


$03 


$07 


$0F 


1670 


.BYTE 


51F 


$3F 


$7F 


$FF 


1688 


.BYTE 


$00 


$00 


$00 


$00 


1698 


.BYTE 


$0F 


$0F 


$0F 


$0F 


1700 


.BYTE 


$80 


$00 


$E0 


$F0 
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So I 



1710 
1729 
173B 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1310 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2880 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



SF8, 
SOF, 
$06, 
SFO, 
$00, 
$FF, 
$00, 
$00, 

$00, 



$FC, 
$0F, 
$00, 
$F0, 
$00, 
$FF, 
$00, 
$00, 
$00, 



$FE,$FF 
$OF,$OF 
$00, $00 
$Fe,$FO 
$00, $00 
$00, $00 
$00, $00 
$00, $00 
$FF,$FF 



;This is the fourth part 
;of the Character Set 
;I skipped the control 
jcharacters 



*- CH5ET+$O3O0 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



$00 
$7E 
$00 
$76 
$00 
$66 
$00 
$68 
$00 
$66 
$00 
$36 
$00 
$3E 
SOO 
$73 
$00 
$7C 
$00 
$18 
$00 
$3C 
$08 
$35 
$00 
$18 
$00 
$7F 
$80 
$66 
$00 
$67 
$00 
$66 
$00 
$66 
$00 
$66 
$00 
$33 
$88 
$8C 
$88 
$33 
$80 
$36 
$00 
$6B 
$00 
$6E 
$08 
$1F 
$88 
$5B 
$00 
$7E 
$18 
$18 
$80 
S6E 
$88 
$38 

$10 

$1C 



,S18 


S3C, 


,$3C, 


$18, 


,$00, 


$1E, 


,$76 


$9F, 


,$50 


$60, 


,$66 


$FD, 


,$00 


$3C, 


,$70 


$DF, 


,$06 


$86, 


,$66 


$FF, 


,$00 


$1C, 


,$1C 


$F7, 


,$1C 


$38, 


,$7B 


$D9, 


,S80 


$1E, 


,SDE 


$87, 


,$60 


$60, 


,$66 


SE7, 


,$18 


$00, 


,$7E 


$C3, 


,$1C 


$00, 


,$6F 


$CD, 


,S30 


$30, 


,$3C 


$F7, 


,$18 


$18, 


,$18 


$E7, 


,$00 


$33, 


,$DB 


$DB, 


,$00 


S7C, 


,$66 


$E7, 


,$00 


$3C, 


,$E7 


$3C, 


,$00 


$7C, 


,$7C 


$E7, 


,$00 


$3E, 


,$7E 


$8F, 


,$00 


$60, 


,$66 


$C3, 


,$00 


$0E, 


,$63 


$DF, 


,$8C 


$3F, 


,$1C 


$F7, 


,$80 


$73, 


,$33 


$DF, 


,$08 


$36, 


-$7F 


$CD, 


,$00 


$63, 


,$7F 


SDD, 


,$00 


$33, 


,$DB 


$B1, 


,$00 


$1B, 


,$36 


$CF, 


,$08 


$00, 


,$DB 


$83, 


,$18 


$3C, 


,$18 


$3C, 


,$18 


$18, 


,$18 


$18, 


,S7E 


$70, 


,$66 


$06, 


,$18 


$38, 


,$18 


$08, 


,$18 


$1C, 


,$18 


$10, 



,$7E 

,$00 

,$36 
,$00 
,$7C 
,$00 
,$70 
,$00 
,$3E 
,$00 
,$36 
,$00 
,$30 
,$1C 
,S33 
, S3C 
,$60 
,$00 
,$18 
,$08 
,$1C 
,$3C 
,$3E 
,$00 
,$18 
,$00 
,$7F 
,$00 
,$66 
,$00 
,$66 
,$00 
,$66 
,$60 
,$66 
,$0E 
,$7E 
,$00 
,$1B 
,$00 
,S8C 
,$88 
,$33 
,$00 
,$36 
,$08 
,$63 
,$88 
,$7E 
,$00 
,$1B 
,$18 
,$66 
,S3E 
,$7E 
,$00 
,S18 
,$18 
,$7C 
,$80 
,$78 
,S80 
,$1E 
,$00 



USTm 5: ASSEMBLY 



0188 
0118 
8128 
8130 
8148 
8158 
0168 



;5ftUEttD;SPYPT4.M65 



Secret Agent 
By: Barry Kolbe 
Disk I/O routines 
Cc) 1988 



0170 


. 




~ 1 


0188 


• 






0190 


;CI0 equates 




0200 


• 






0210 


ICCOM = 


$0342 ; 


connand 


0220 


ICBftL - 


$0344 , 


buffer address 


0238 


ICBftH = 


$8345 




8240 


ICBLL = 


$0348 , 


buffer length 


0250 


ICBLH = 


$0349 




0260 


ftUKl = 


$034A , 


type access 


0270 


AUK2 = 


$034B 




0280 


CIO = 


$E456 




0290 


i 






0388 


SUEGflM JSR CLOSEl ;clOSe lOCB 1 


0310 


LDA 


«3 


open 


0320 


LDK 


«$10 


channel 1 


0330 


STfl 


ICCOM, K 




0340 


LDA 


«8 


to write 


0350 


STft 


AU»1,K 




0368 


LDA 


a <FNAM , 


file nane 


0370 


STfl 


ICBflL,X 




0380 


LDA 


tt >FNAM 




8398 


5TA 


ICBflH,X 




8488 


LDA 


tiO 




0410 


STA 


AUX2,X 




8428 


JSR 


CIO , 


open it! 


8438 


BMI 


lOERR , 


show error 


8440 


LDA 


tt$OB , 


put bytes 


8458 


LDX 


«$10 , 


channel 1 


0460 


STA 


ICCOM, K 




0470 


LDA 


« <5AyST 


;starting 


0480 


STA 


ICBAL,X , 


address 


0490 


LDA 


tt >SAVST 




OSOO 


STA 


ICBAH,X 




0510 


LDA 


« <:5AUEN-5flU5T+l] 


0520 


STA 


ICBLL, X , 


nunber of 


0530 


LDA 


a >[SAUEN-SAUST+13 


0540 


STA 


ICBLH, X , 


bytes 


0550 


JSR 


CIO , 


save data 


8560 


BMI 


lOERR , 


woops! 


0570 


lODON PRINT M2 


; 'done' 


0580 


JSR 


CLOSEl , 


close file 


0590 


RTS 






0600 


lOERR JSR CLOSEl 


;close lOCB 1 


0610 


PRINT I0M5G ;say "Error' 


0620 


RTS 






0630 


i 






0640 


CLOSEl LDX tt$10 , 


close lOCB 1 


0650 


LDA 


a$0C 


close connnd 


0660 


STA 


ICCOM, K 




6670 


JSR 


CIO 




0680 


RTS 






6690 


) 






0700 


LOADGAM 


JSR CLOSEl ;ciose loCB i 


6710 


LDA 


a3 


open 


0720 


LDK 


a$i0 




0730 


STA 


ICCOM, X 




0740 


LDA 


a <FNAM 




0750 


STA 


ICBAL,X 




6760 


LDA 


a >FNAM 




8770 


STA 


ICBAH,X 




0780 


LDA 


ao 




0790 


STA 


AUX2,X 




0800 


LDA 


a4 


read 


0810 


STA 


AUX1,X 




0820 


JSR 


CIO 




0830 


lOJ BMI 


lOERR 


■Error' 


0840 


LDA 


a7 


get bytes 


0850 


LDX 


a$io 




0860 


STfl 


ICCOM, X 




0870 


LDA 


a <sflusT 


;starting 


0880 


STA 


ICBAL.X , 


address 


0890 


LDA 


a >SAVST 




0900 


STA 


ICBAH,X , 


get nuMber 


0918 


LDA 


a <[SAVEK-SAU5T+13 


0920 


STA 


ICBLL, X , 


of bytes 


0930 


LDA 


a >CSAUEN-SAUST+1] 


0940 


STA 


ICBLH, X 




0950 


JSR 


CIO 




8968 


BMI 


lOJ , 


'Error' 


8978 








0988 


; Reset proper Message 


0990 








1800 


LDA 


FJ 


robot dead? 


1010 


BEQ 


RBK 


yes 


1020 


LDA 


a <D1A , 


say 'guarding' 


1030 


STA 


ROBROM 




1848 


LDA 


a >D1A 




1858 


STA 


ROBROM+1 




1060 


JMP 


lODON 




1070 


RBK LDA 


a <D1F 


'nangled 


1080 


STA 


ROBROM 


robot' 


1696 


LDA 


a >D1F 
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IIOQ 5Tfl ROBROM+1 

1118 JMP lODON 

1120 ; 

1130 FNfiM .BYTE "D : 5PY . DAT" , EOL 

114G lOMSG .BYTE "File error. ",0 



LISTING 6: ASSEMBLY 



eioo 


;5fll.lE«D:5PYPT4.M65 


0120 
0130 












I 


0140 




Secret Agent ; 


0150 




CO 


1988 ; 


0160 
0170 




by Barri/ Kolbe ; 






r 


0180 








0190 


JTable of 


Verbs CConnands) 


0200 








0210 


CMDTBL .HORD DGET ;get 


0220 




■ MORD 


DDRO ;drop 


0230 




.MORD 


DOPE ;open 


0240 




.WORD 


DREA ;read 


0250 




■ NGRD 


DIN5 ; insert 


0260 




.NORD 


DWEA ;wear 


8270 




.MORD 


DTUR jturn 


8280 




.NORD 


DFLI ;flip 


8290 




.WORD 


DEXA ;exaMine 


0380 




.WORD 


DWAU ;wave 


0310 




.WORD 


DSHO ; shoot 


0320 




.WORD 


DGET jtake 


8330 




.WORD 


DLIF ;lift 


0340 




.WORD 


DMOU ;nove 


0350 




.WORD 


DPUS jpush 


0360 




.WORD 


DOPE junlock 


0370 




.WORD 


DPUS ;prcss 


0380 




.WORD 


DINS ;put CS12> 


8390 








8480 


jTable of 


ROOM Descriptions 


8410 








0420 


DESTftB .WORD DO 


0430 




.WORD 


Dl 


0440 




.WORD 


Dl 


0450 




.WORD 


D3 


0460 




.WORD 


D4 


0470 




.WORD 


D5 


0480 




.WORD 


Dl 


0490 




.WORD 


D7 


0500 




.WORD 


D8 


0518 


ftPEROM .HORD DE 


8528 




.WORD 


DE 


8538 




.WORD 


D5 


8540 




.WORD 


DC 


8550 




.WORD 


DD 


0560 




.WORD 


DE 


0570 


SftFROM .WORD DF 


0580 




.WORD 


DIO 


0590 




.WORD 


Dll 


8600 




.WORD 


D12 


0610 




.WORD 


D13 


0620 




.WORD 


D14 


8630 




.WORD 


D15 


8640 




.WORD 


DFAKE 


8650 




.WORD 


D17 


0660 




.WORD 


DE 


0670 




.WORD 


D19 


0680 


ROBROM .MORD DIO 


0690 




.WORD 


DIB 


0700 




.WORD 


Die 


0710 




.WORD 


DID 


0720 




.WORD 


DFAKE 


0730 




.WORD 


DFAKE 


0748 




.WORD 


DFAKE 


8758 








0760 


;R0OM Nanes 


0770 








0780 


RO 


.BYTE 


"Outside", 


8798 


Rl 


.BYTE 


"Entrance", 


8800 


R2 


.BYTE 


"Reception area",0 


0810 


R3 


.BYTE 


"Conference rooM",8 


0820 


R4 


.BYTE 


"Kitchen", 8 


0830 


R5 


.BYTE 


"Security area", 8 


0840 


R6 


.BYTE 


"Experinent rooM",e 


0850 


R7 


.BYTE 


"Storage rooM",8 


0860 


R8 


.BYTE 


"Aninal rooM",0 


0870 


R9 


.BYTE 


"West end of hallway" 


0880 




.BYTE 





0890 


RA 


.BYTE 


"Hallway", 


0900 


RB 


.BYTE 


"Cafeteria", 


0910 


RC 


.BYTE 


"Stairwell",© 



8920 

0930 

0940 

0958 

8968 

0970 

0980 

0990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1278 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1418 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1848 



RD .BYTE "Office", 

RE .BYTE "Chenical Lab", 8 

RF .BYTE "K-ray Lab",0 

RG .BYTE "COMputer Lab",0 

RH .BYTE "Photo Lab",0 

RI .BYTE "Electronics Lab",0 

RJ .BYTE "Snail rooM",8 

RK .BYTE "Tunnel", 

RL .BYTE "Cage", 8 

; Messages 



XNDR 

HSOU 

XEAS 

KWES 

HUP , 

KDOW 

VOUH 

NOTH 

Y0U5 

Ml 

M2 

M3 

M4 

MS 

M6 
M7 

MB 

M9 ! 

MIO . 
Mil . 

M12 . 

M13 . 

M14 . 

M16 . 

M17 . 

M18 . 

M19 . 

M20 . 



.BYTE "North, ",0 
.BYTE "South, ",0 
.BYTE "East, ",0 
.BYTE "West, ",0 
BYTE "Up, ",0 
.BYTE "Down, ",0 



',8 



.BYTE "YOU have: " 
.BYTE "Nothing ",0 
.BYTE "You see: " 
BYTE "What?",0 
BYTE "Done.",0 
BYTE "It's not here. 
BYTE "Taken. ",0 
BYTE "You don't have that" 
BYTE ". ",0 
BYTE "Dropped. ",0 
BYTE "You can't carry " 
BYTE "anynore. ",0 
BYTE "You can't go that " 
BYTE "way. ",o 
BYTE "The exits are: ",o 
BYTE "You see: ",o 
BYTE "You already have " 
BYTE "that. ",0 
BYTE "You see nothing " 
BYTE "special . ",8 
BYTE "It's open. ",0 
BYTE "Not yet. ",0 
BYTE "It won't fit. ",0 
BYTE "You are wearing the" 
BYTE " scuba gear. ",0 
BYTE "Nothing happens. " 
BYTE 

BYTE "You can't do tha" 
BYTE "t. ",8 

BYTE "'The blue button tu" 
.BYTE "rns off the lasers" 
.BYTE ". ' ",0 
M21 .BYTE "The title is: The " 
.BYTE "Effect of Bio-Agents" 
.BYTE " on Mannals. ",8 
M22 .BYTE "It says; 'Tighten " 
.BYTE "security on all fl" 
.BYTE "oors. ' ",e 
M23 .BYTE "YOU can't read tha" 

.BYTE "t. ",8 
M24 .BYTE "YOU can't get tha" 

.BYTE "t! ",0 
M25 .BYTE "You can't open t" 

.BYTE "hat. ",0 
M27 .BYTE "What for? ",0 
M28 .BYTE ". . Click. . ",0 
M29 .BYTE "The safe opens. ",0 
M38 .BYTE "There's an ON/OFF s" 

.BYTE "Witch on it. ",0 
M31 .BYTE "You are wearing the" 

.BYTE " gas Mask. ",0 
M33 .BYTE "YOU Missed. ",0 
M34 .BYTE "A laser blast froM " 
.BYTE "the robot atoMizes " 
.BYTE "you! ",0 
M35 .BYTE "The robot fires, but" 

.BYTE " Misses. ",0 
M36 .BYTE "The ape crushes your" 

.BYTE "bones.. Crack,. ",0 
M37 .BYTE "The ape is charging " 

.BYTE "at you! ",0 
M38 .BYTE "The floor is electr" 

.BYTE "ified. ZZZit. . ",0 
M39 .BYTE "YOU Choke as poison" 
.BYTE "ed gas seeps into y" 
.BYTE "our lungs! ",0 
M40 .BYTE "Deadly radiation Mel" 

.BYTE "ts your flesh. ",0 
M41 .BYTE "You failed your Miss" 

.BYTE "ion. ",0 
M42 .BYTE "YOU escaped froM the" 

.BYTE " lab. ",8 
M43 .BYTE "Suddenly laser burst" 
.BYTE "s cut through you. " 

continued on page 82 
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ISK 

IRECTORY 

ALPHABETIZER 



by Craig J. Stadler 



It actually 

alphabetizes the on- 

disk directory y and 

then writes the new 

directory and patches 

to the disk — not just 

a temporary display. 



Just about every computer user has a 
program in his jumble of files that al- 
phabetizes a disk directory for printing 
or displaying on the screen, right? Yes, 
but do they really alphabetize the 
directory? Probably not! The Disk Directo- 
ry Alphabetizer (DDA) is the real thing. It ac- 
tually alphabetizes the on-disk directory, and 
then writes the new directory and patches to 
the disk— not just a temporary display. 

What? 

If you don't fully understand, here is an ex- 
planation. Most other directory alphabetiz- 
ing programs operate in this manner: 1) read 
the directory into memory, 2) alphabetize the 
directory in memory and 3) display and or 
print the directory. And that's that! 

However, the DDA operates in this man- 
ner: 1) read the directory into memory, 2) al- 
phabetize the directory in memory, 3) write 
the alphabetized directory to disk and 4) read, 
patch and write all file and sector data neces- 
sary for proper operation. 

First there is something we must clear up. 
Although DDA rewrites file and sector data, 
it does not write over information data, only 
sector data such as file number and next sec- 



3B 



tor. Most people feel that it is not possible 
to achieve what DDA performs because of 
No. 4. We will go into this later when we dis- 
cuss how DDA works. 



How to Use DDA 

After typing Listing 1 (and please check 
your typing with BASIC Editor II on page 54; 
typing mistakes in this program could result 
in serious damage to your disk files), run the 
program. You will be given three choices: 

Qhange Drive or V)erify: Use this option 
to change your drive number to any other 
than Drive I (default). Verify is a feature that 
checks for errors when writing to a disk. 

P)rocess Directory: Press "P" to begin the 
program. 

D)isk Operating System: Press "D" to go 
to DOS. Default settings are Drive-1 and Veri- 
fy On. 

Change defaults if necessary and press "P" 
to begin. The first prompt is self-explanatory. 
Remember, make sure there is a write pro- 
tect tab on the disk. At this point DDA reads 
and alphabetizes the directory. The screen 
shuts off so the computer can operate faster. 
Wait for the second prompt. 

The second prompt is the data-write 
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prompt, so be sure to follow the instructions, 
and don't forget to take the write protect tab 
off the disk; if you don't, DDA won't be able 
to write the new directory to the disk. First, 
DDA writes the directory back onto the disk 
and then modifies the necessary file and sec- 
tor patches. 

How Can This Be So Complex? 

Reading and writing a disk directory 
should not be a problem for the experienced 
programmer. In the case of DDA, one would 
logically think that it would be possible to 
just read, alphabetize and write the directo- 
ry. But it's not that easy. You see, Atari DOS 
and the Volume Table of Contents operate 
rather differently from other disk operating 
systems. 

When you write a file to your disk, this is 
what happens: 

1) The VTOC finds space on the disk. 

2) The filename is written onto the end of 
the directory listing and the VTOC remem- 
bers which file number was assigned to that 
file. The file is then written onto the disk 
where ever space is available. When the file 
is written, there are a few bytes of data at the 
end of each 128/125 byte sector. These bytes 
tell what file number the file sector belongs 
to, next sector and number of bytes of data 
contained in the sector. The few bytes of in- 
formational data for use by the VTOC are 
written on every sector of data for that par- 
ticular file. 

According to several manuals and maga- 
zines, a normal data sector contains 125 ac- 
tual data bytes. Byte #125 signifies the 
number of bytes used in the sector. Byte #126 
signifies the file number and the next sector 
number (high two bits). Byte #127 signifies 
the next sector number (low eight bits). Af- 
ter reading and hopefully understanding these 
facts, you can understand why a simple 
read/alphabetize/write process is ridiculous. 

When you alphabetize the directory, the 
file numbers do not match up any longer! 
When VTOC and DOS try to access any of 
these files, you will get ERROR 164. This 
is why DDA performs all the patches. 

How Does DDA Patch? 

There are even more difficulties. One can- 
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Reading and writing 

a disk directory 

should not be a 

problem for the 

experienced 

programmer. 

But it's not that easy. 



not just go into a data sector and change Byte 
#126 (file number and next sector number) 
because these two work together along with 
Byte #127. Now, DDA must read the start sec- 
tor of the first file, calculate the next sector, 
change Bytes 126 and 127, read the next sec- 
tor and so on until that particular file is 
finished being modified. After this, DDA 
goes to the next file and so on. By using al- 
gebra and some friendly help, as some 
programmers do (Ahem!), one can calculate 
a formula for changing Bytes 127 and 128 to 
get the desired result. 



One Last Thin^ 



If any of you are considering using DDA 
on your RAMdisk, there are doubts about it 
working with memory rather than disk sec- 
tors. Be careful! 

The author would like to thank Alicia 
Crowell and Christopher Gibson. 



LISTING 1: BASIC 



AE IB REM KMKlOdOOOtKKlOCKKKKlOCKKKKKKMKKK 
UM 20 REM » DI5K DIRECTORY * 

HM 30 REM » flLPHflBETIZER * 

CK 40 REM » by Craig J. 5tadler * 

FW 50 REM * » 

BS 50 REM * COPYRIGHT 1989 » 

BB 70 REM » BY ANfiLOG COMPUTING » 

AL 80 REM MKKKKKKKKKKKKKKKKKKKXKKKKKKKK 
BG 90 REM 
YB 100 DIM D5C1024} ,5D$tl281 ,N$(15) :DRM=1 

:URF=:l 
ON lie D0=ADRt5D$J !SDS="¥":SD$tl283="¥":S 

D$(2J=5D5 
NB 120 GRAPHICS 0;P0KE 752,1;PQKE 82,0 
MP 130 POSITION 0,4:? "^■^■■■l^i^^H 



BF 


140 




ire 


EG 


150 


AG 


150 


MS 


170 




II 


JG 


180 




■ ■ 


UA 


190 




/ U 


FI 


200 




05U 


LY 


210 


MA 


220 


MI 


230 


MY 


240 




m: 




DRU 


Qy 


250 




UB 



POSITION 0,6:? " The_Atari_DiSk_D 

ctory_Alphabetizer_"^ 
POSITION 0,8:? 



Drive: 



POSITION 8,8:? CHR$CDRU+176J 

IF URF=1 THEN POSITION 36,8:? " fiTili 

IF URF=0 THEN POSITION 36,8:? "[Hi 

POSITION 0,12:? "i Bhange Drive 
erify":? :? "> Qrocess Directory" 

? :? "► Hisk Operating Syste«":G 
B 650:IF A=68 THEN DOS 

IF A=67 THEN 240 

IF A=80 THEN 270 

GOTO 210 

POKE 752,1:? !? "► l>iiIt'J:M«B 
";:gosub 650: a=a-48:dru=A:? drvsif 

<i OR "> " '■' >^ J " ^_'!_^A^ 

650:yRF=A;VRF=VRF-48:? VRF : IF gRF<0 

37 



OR gRF>l THEN 250 
NJ 260 POKE 752,1: GOTO 120 

lUY 270 G05UB 660 

iZF 280 ? "► l>I1JJ4<-lil.'MJ^E ■■:? :? 

"Please insert disk to be read and MftK 

E" 
SB 290 ? "SURE there is a WRITE PROTECT T 

flB on it." ..^_______.™___ 

50 

FK 310 IF URF=1 THEM POKE 1913,87 

WY 320 IF URF=B THEM POKE 1913,80 

UR 330 GDSUB 660 

SM 340 0P2=l:0P=82:51=36l!S2=368:G0SUB 67 



VU 730 L0=INTtD0/256) 

RN 740 POKE 772,S0:P0KE 773, LO 

CO 750 POKE 778,5N-256»INTCSM/256J 

DF 760 POKE 779, INT CSN/256) 

VL 770 H0=U5RtflDRC"h SQ*") J 

HZ 780 IF 0P2=1 THEN D$ tLEM CDSJ +1J =SD$ 

ST 790 NEXT SNiRETURN 

OK 800 SD$(1,128)=DSCZ+1,Z+128J 

PD 810 Z=Z+128 

ZI 820 RETURN Fl 



MZ 350 G05UB 660 : POKE 559,22 

ZW 360 TRAP 380:FOR fl=l TO 993 STEP 16 : IF 

D$tA+22,fi+32) ="¥¥¥¥¥¥¥¥*¥¥" THEN 380 
DF 370 NEXT fl 

01 380 XND=A:FOR Z=l TO INTfKND/16J 
VM 390 FOR K=0 TO KND-16 STEP 16 
OK 400 IF DStK+6,H+16)>DSCX+22,X+32) THEN 
N$ = DS tK + 1, K + 16) : D$ CX + 1, K + i6) =t>$ tX + 17, 

X+32) :D$CX+17,X+32)=N$ 
SB 410 NEXT X:NEXT Z ;POKE 559, 42 
XF 420 ? "tK l>Hf!IJ%ti ■■:? :? " 

Please REMOUE the WRITE PROTECT TAB an 

d re-insert "; 
SP 430 ? "the disk for directory write." 
OT 440 ? :? " After this section, the sc 

reen will":? " blank and ADDA will re 

-write file &•' 
DX 450 ? " sector data. PLEASE WA IT! !" 

DT 470 POKE 752,l!G0SUB 650 

WC 480 GOSUB 660 

HJ 490 S1=361:S2=368:0P=87:0P2=2 

CY 500 POP :G0SUB 670 : FH=0 ! POKE 559,22 

AI 510 FOR X=4 TO 16*(IHT ( fXND+17) /16) ) S 

TEP 16 
SO 520 Sl=ASCCDSCX+l,X+l))*256+ASCtD5tX,K 

}} 
CI 530 LN=A5CCD5tX-2,X-2)J :IF D5CX-3,X-3J 

=CHR$(128] OR LN=0 THEN 630 
YY 540 S2=S1 
TK 550 OP=82:OP2=0 
WL 560 GDSUB 670 
MQ 570 Z=ASCC5DSC126,1263J :Y=ASCtSD$tl27, 

127J J : NXT5=256*CZ-4»CINT tZ/4) ) ) +Y 
GT 580 Z=4*FN+tfNXT5-YJ/256J :SD$C126,126J 

=CHR5CZ3 
PJ 590 0P=87:0P2=0:G0SUB 670 
NF 600 Sl=NXT5:S2=Sl:OP2=0 
NA 610 IF NXTS=0 THEN 630 
PG 620 GOTO 550 

TK 630 FN=FN+ l;NEXT X:POKE 559,42 
SZ 640 ? :? " h^JiUttliliMlM'giTJiMii^i^iJim 

^B":fdr a=i TO 800:next a:graphics o: 

END 
KQ 650 CLOSE «1:0PEM ttl, 4, O, "K : " : GET «1,A 

:CLOSE ttllRETURH 
SR 660 FOR A=12 TO 21:C0L0R 32 ! PLOT 0,A!D 

RAWTD 59 ,A!NEXT AlPQSITION 0,12!RE TURN 
DT 670 REM I I I I I'l 1- |^»■■'l^^*^ % y\ ag^ 
HU 680 POKE 769,DRU:P0KE 770, OP; 
PD 690 FOR SN=S1 TO 52 
MZ 700 POKE 779,0 
AX 710 IF 0P2=2 THEN GOSUB BOO 
ZM 720 S0=D0-256»INTCD0/256) 



:Z=0 



80 COL. SCREEN!-NEW PRICES! 



Winner ANTIC 
awards '88 



Turbobase. 

"IBM power without the price... 1 really can't think of any feature associated with running 
a business that has been left out-except for tfie huge prices charged for comparable 
software on MS-DOS computers." -ANTIC, Dec. '87 

"...the most time consuming review I have ever done, due to the number of features... 
Turbobase finally gives what 8-bit owners have been clamoring for for years; true, power- 
ful business software ... set up a fully capable business system for less than SI ,000 . . . 
customer support is superb . , . Practicality-excellent. Documentation-excellent." 

-COMPUTER SHOPPER, Aug. 87 
"... one of the most powerful and versatile database programs available ..." 
^ -COMPUTER SHOPPER, Aug. 88 



COMPARE TO IBM CLONES: 



Complete Documentation 
S20-$50 Customizalions 
One package/all modules 
All Hardware Upgrades 
Brand Name Hardware 
True Integration 
Free Application Set-up 

Turbobase takes S20.000 video slore sale from IBM . .S.V, Plainfield, NJ 
Turbobase lakes 520,0IX) IBM sale for waierbed store.. A J. Pfioenix. A2 
Turbobase Jcpiaccs 537.000 air condilianingapphcaiion , AB. Alion. NH 
Uniil you have Turbobase you tlori'i have a darabasei Acorn Users Group 



' Capability 

• Capacity 

' Remote Terminals 

' Exhaustive Support 

' No Disk Switcliing 

' Tiny Footprint 

' Not Copy Protected 



• Speed among ttiousands of records 

• Ease of learning (per feature) 

• Number of Englisti error messages 

• Adaptability to Existing Application 

• Hardware/DOS easier than Clone,MS DOS'" 

• Faster Back-up to inexpensive floppy 

• Complete Invoice/Payments Error Checking 



Micromiser is looking for resellers, If you have 2 DD drives, or an IVIIO '" , or liard disk, You qual- 
ify for free training, dealer prices, marketing/direct mail lielp, and myriad customer references 
vi/ho express extreme satisfaction willi Turbobase. Compare the Turbobase '"/fvllO'" configu- 
ration at $830 (all hardvifare & software except printer) with the tBfVI AT'" : Immediate RAM 
access to 6,000 invoices, or 1 5.000 inventory items, or 50,000 G/L records, or 20,000 payroll 
records, or any combination of above! With a hard drive (add only $100) the figures go up! 
4,000 addresses too! An unbeatable selling point: replace any component for the cost of a 
typical ISfvl'" /Apple'" repair bill! The small business market is yours! Just ask, "Is IBM" 
compatibility worth $20,000 to you?" 



TURBOBASE '" — the all in one database/business system: 3 databases f word processor 
includes file manager/spread sheet/relational features/accounting/report generator, G/L, 
P/S, AR. AP, open invoicing/statements, inventory, payroll, mailing, utilities, all truly integrated 
in one program/manual so simplified tfiat we can present complete detailed instructions in 
only 700 I- pages of superb documentation (third re-wrile) includes separate Quick Course 
and Cookbook + 8 disk sides. Runs on any 48K 8-bit Atari, only 1 drive req. Call today! 



Turbobase SI59-TurboJr S99 
For XEP— 80 col. screen: 

Turbobase 80 SI 79-JrSO S I 19 
w/80 col word processor add S2'1 

80 COL WORD PROCESSOR $49 



ST owners! Ask abouiUltrabasc ST I B/W mon- 
itor only) all Turbobase features -i- much more 
+ Ulrimate SIMPLICITY and speed 

(407) 857-6014 



MICROMISER SOFTWARE, 1635-A HOLDEN AVE., ORLANDO, FL 32809 



CIRCLE #101 ON RUDER SERVICE CARD. 
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BARGAINS! 



1020 

Complete with: 

• 2 Pen Sets 

• 1 Roll Paper 

• Power Supply & Cable 

EXmA PEN SETS 



COLOR PRINTER 
PLOTTER 



$14.98 

' Brand New 

$ .89 (Black) 
$3.98 (Color) 



ATTN. DEALERS 

PAC-MAN 

Case of 120 



800 48K COMPUTER 



w/PAC-MAN 



$69.95 

Reconditioned 



$69. 



1025 PRINTER 



• 80 Column 
■Dot Matrix 

• Friction/Tractor 

• Direct Connect 



$79.98 

Reconditioned 



1200XL 64K COMPUTER 


SYNTREND $4.98 


w/PAC-MAN ^^^J_^-^ ^ 

ReOTidiUcmed 


i 850 Interface iVQ QQ 
i Serial, parallel tLr^f° 


1027 PRINTER 

• 80 Column . ^_^ 

• Direct Connect ^~* ' ^ C^ 

• Letter Quality *nr^ ^ •— ^ • 

Brand New 


i 825 80 Column Printer 

: • Friction, Trac ^£^3 «^ 


BASJC TUTOR . , ^^ 

4 BOOKS $4.98 


^..:■:■:^.:■^v■:■:■^:■:■:■:.::::::::::^:::.:::::^^::::^::^::!i:.^^^^^ 


ARCADE CHAMP 

• 2 JOYSnCKS J. _ . _ _ 

:««_ $14.98 


^ i\Mf\ DISK DRIVE i 

1050 $169. 


DOS XE ..$9.95 


800 BOARDS 

• Mother • CPU your choice : 

• Power • ROM $8.98 \ 


1010 Tape drive.... $29. 

10' Joystick ext $.99 

TYackball $9.95 



CARTRIDGES FOR 800, 



BASIC CARTRIDGE 84.95 

HASIC TUTOR (4 BOOKS] S4.95 

TURMOIL $4.95 

PAC-MAN (no box) $4.95 

DONKEY KONG (no box) $4.95 

GORF (400.800) $4.95 

DEMON ATTACK (400,800) $4.95 

DELUXE INVADERS $4.95 

JOURNEY TO THE PLANETS. $4.95 

MATH ENCOUNTER $7.98 

DANCE FANTASY $8.98 

LOGIC LEVELS $8.98 

MEMORY MANOR $8.98 

UNKING LOGIC $8.98 

CHICKEN $8.98 

CLAIM JUMPER $8.98 



DELTA DRAWING $8.98 

HEY DIDDLE DIDDLE $8.98 

SUME (400/800) $8.98 

ALPHABET ZOO $8.98 

ALF $8.98 

ADVENTURE CREATOR $8.98 

SKY WRITER $14.95 

FOOTBALL $14.95 

DEFENDER $14.95 

ROBOTRON $19.98 

TENNIS $19.98 

FINAL LEGACY $19.98 

MARIO BROS $19.98 

DONKEY KONG JR $19.98 

JUNGLE HUNT $19.98 

MOON PATROL $19.98 



XL, XE 

BATTLEZONE $19.98 

FOOD FIGHT $19.98 

HARDBALL $19.98 

FIGHT NIGHT $19.98 

ONE ON ONE BASKETBALL $19.98 

DESERT FALCON $19.98 

NECROMANCER $19.98 

RESCUE ON FRACTALUS $19.98 

BALLBLAZER $19.98 

BLUE MAX $19.98 

STAR RAIDERS U $19.98 

DAVID'S MIDNIGHT MAGIC $19.98 

ARCHON $19.98 

GATO $24.98 

ACE OF ACES $24.98 

LODE RUNNER S*-^ 

BARNYARD BLASTER (XE gun) $24.98 



DISK SOFTWARE FOR 800, XL, XE 



DAVID'S MIDNIGHT MAGIC $4.98 

ZORRO $4.98 

BANDITS (48K 400,800) $4.98 

PROTECTOR II $4.98 

CIjMM jumper $4.98 

SYNl'REND $4.98 



CROSSCHECK $4.98 

MOLECULE MAN $4.98 

CRYSTAL RAIDER $4.98 

DESPATCH RIDER $4.98 

MISSION ASTEROID $4.98 



SPIDERMAN $4.98 

HULK $4.98 

VISICALC $24.98 

BOOKKEEPER W/ numeric keypad... $29.98 
GET RICH $39.98 



810 

DISK 
DRIVES 

$129. 



8-BIT I/O CABLE $4.98 



SAN JOSE COMPUTER 



THE 



A T A R 



STORE 



Sunrise Plaza 640 Blossonn Hill Rd, SonJose, CA 95123 
(408) 224-8575 • BBS (408) 224-9052 



5.25" DISKS 

20 CENTS EA.* 

QTY. PRICE 

10 $4.00 

100 .... $29.95 

•1000 .... $200 

MAJORITY ARE IWNOTCHED 
CONTAINING OLD SOFTWARE 



SHIPPING: ADD $5.00 TO ALL ORDERS. AIR AND INTERNATIONAL SHIPPING EXTRA. THATS IT. 

WARRANTY: 90 DAY WARRANTY ON ALL ITEMS. TAX: CALIFORNIA RESIDENTS ADD 7% SALES TAX. 

PREPAYMENT: USE VISA. MASTERCARD. MONEY ORDER, CASHIER'S CHECK OR PERSONAL CHECK. 

PERSONAL CHECK MUST CLEAR PRIOR TO SHIPMENT. C.O.D.: CASH, CASHIER'S CHECK OR M.O. ONLY 

Prices subject to change without notice. Brand and/or product names are trademarks or registered trademarks of their respective holders 

Ad produced on an ATARI ST. 



CIRCLE #102 ON READER SERVICE CARD. 




by TOM HUDSON 



Last issue, you were introduced to the 
concept of various numbering systems, in- 
cluding Base 2, Base 10 and Base 16. We 
also covered the basics of assembly lan- 
guage and the registers of the 6502 
microprocessor. 

In this issue, we'll talk about the ways 
the 6502 can address memory and begin 
looking at the 6502 instruction set. 

Address Unknown? 

In order to perform useful work for us, 
the 6502 microprocessor chip must be able 
to get numbers from memory, manipulate 
them and place the results back in memory. 
Each memory location has its own num- 
ber, or address. The 6502 can reference up 
to 65,536 bytes of memory ($0000- 
$FFFF). 

If you've used the BASIC PEEK and 
POKE functions, you've used the 6502's 
addressing abUity already. Consider, for ex- 
ample, the BASIC command: 
POKE 559,0 

This connmand places a in address 559 
($22F), which turns off the computer's 
screen display. 

Luckily for us programmers, the design- 
ers of the 6502 gave us quite a bit of flexi- 
bility in how we reference memory 
locations. These ways are listed below. 

Immediate addressing allows us to place 



40 



one number we are working with (or 
OPERAND) right after the operation code. 
The operand must be preceded with 
then"#" symbol. For example, the assem- 
bly instruction: 

LDA #23 
places the number 23 in the accumulator. 
In this example we specified the number 
in decimal. If we wanted, we could have 
given the number in hexadecimal (Base 16): 

LDA #$17 
Note that decimal numbers require no spe- 
cial marking, but hex numbers are always 
preceded by a "$" symbol. 

Absolute addressing tells the computer 
we want to get the operand from a certain 
address somewhere in memory. For exam- 
ple, let's say we want to turn off the screen 
as we did before in the above BASIC ex- 
ample. Instead of a POKE 559,0 command, 
we could use the following two assembly 
instructions: 

LDA #0 
STA 559 

The first instruction, as we learned 
above, will load the accumulator with a 0. 
The second instruction uses the absolute 
addressing mode to store the contents of the 
accumulator into memory address 559. 
What could be easier? 

Implied addressing means that no ad- 
dresses are used in the instruction. The 
CLC (clear carry) and RTS (return from 
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subroutine) instructions are good examples 
of implied addressing instructions. 

Accumulator addressing is used for those 
instructions that use only the accumulator, 
such as ASLA (arithmetic shift left). 

Index addressing is a useful type of ad- 
dressing which makes table operations very 
simple. In this mode, the X or Y register 
is used as an index. For example, in the fol- 
lowing instruction: 

LDA TABLE, X 

If the X register contains a 7, the ac- 
cumulator will be loaded with whatever is 
in the seventh byte after TABLE. It's a very 
simple concept, and works the same with 
the Y register. 

Indirect addressing is only used with the 
IMP (jump to location) instruction. In the 
following example: 

JMP ($3000) 
The JMP will not go to address $3000, but 
it will take the contents of $3000 and $3001 
and jump to the address indicated by their 
contents. If, for example, $3000 contains 
$3F and $3001 contains $50, the program 
will jump to $503 F. This instruction is rare- 
ly used, but it can be irreplaceable under 
certain circumstances. 

Pre-indexed indirect addressing uses the 
X register and an operand byte to address 
a byte in the first 256 bytes of memory. In 
the following example: 

LDA ($AF,X) 
If the X register contains $12, the computer 
adds $AF and $12, giving a result of $C1. 
The computer then takes the contents of 
$C1 and and $C2 and loads the accumula- 
tor from the address contained in these 
bytes. For example, if Location $C1 con- 
tains $50 and a Location $C2 contains $3F, 
the accumulator will be loaded from Lo- 
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cation $3F50. 

Point-indexed indirect addressing uses 
the Y register and an address in the first 
256 bytes of memory to point to another 
address. In the following example: 

LDA ($AF),Y 
The computer takes the contents of bytes 
$AF and $B0 and adds the Y register to this 
address for a final address. If $AF contains 
$00 and $B0 contains $40 the computer 
first points to $4000, then uses the Y 
register as an offset. If the Y register con- 
tains $50, the accumulator would be load- 
ed from $4050. This addressing mode is 
used fairly often. 

Relative addressing is used in all branch- 
on-condidon instructions in the 6502. 
Usually after a comparison the program- 
mer will branch on a condition. This is the 
same as an IF/THEN statement in BASIC. 
In the following example: 

BNE START 
The computer will calculate the number of 
bytes between the branch instruction and 
the location referenced by START at assem- 
bly time. During execution, the image in 
memory may look like: 
BNE $30 
This indicates that START was 48 bytes 
from the branch instruction. If the branch 
is executed, the computer wiU skip 48 bytes 
and continue executing as the part of the 
program labeled START. There is only one 
drawback to this addressing mode: The 
branch cannot be farther than —126 or 
-1-129 bytes. Longer branches require the 
use of the JMP instruction. 

Assembler Syntax 

Every computer language has a set of 



rules known as syntax. These rules are es- 
tablished so that the programmer will enter 
program code in a way that the computer 
will understand. Assembly language has a 
very simple syntax, shown in Figure 1. 

LABEL 
OP CODE 
OPERAND 

COMMENTS 

Figure 1. 

If you have ever looked at assembly lan- 
guage source listings in ANALOG, you 
have noticed the neat columns of "gibber- 
ish." This is the way assembly language is 
structured. 

Each column of information in the as- 
sembly source listing is known as a field. 
Each field is separated by one or more 
spaces. 

The first field, or label field, is option- 
al. If the code you are writing will be refer- 
enced elsewhere in the program, you 
should place an appropriate label in the 
label field. 

A label should give some ideal of what 
the section of code does. For example, 
LOOOl tells nothing about the code, 
whereas VBLANK tells us that the code 
is part of the vertical blank cycle. Meaning- 
ful labels should be included wherever 
possible. 

Labels should start with a letter, but can 
contain numbers in them. 

Many assemblers use only the first five 
or six characters of a label, so the labels 
will be limited to six characters. This will 
enable the readers with assemblers other 
than the ATARI cartridge to use the pro- 
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In BASIC, the 
programmer doesn Y 
really care where the 
program is placed in 
memory. This is one 
of the benefits of a 
high-level language. 



gram listings with as little modification as 
possible. 

The second field in an assembler state- 
ment is the operation code. This is usually 
a three-character standard 6502 instruction, 
such as LDA, STA or JMP. 

Each assembler also has a set of direc- 
tives, or pseudo-operations. These opera- 
tions are not commands to the 6502, but 
are processed by the assembler program at 
assembly time. The most common direc- 
tives are ".BYTE," ".WORD," "EQU" or 
"=" and "ORG" or "*=". These will be 
discussed in detail later. 

4S 



The third field in an assembler statement 
is the operand. This field contains data or 
addresses required by the operation code. 
Operands are not needed by all operation 
codes. 

Operands are usually given in decimal 
or hexadecimal. Decimal numbers require 
no special prefix, but hex numbers must 
be preceded by the "$" character. 

Operands can also be labels defined else- 
where in the program. For example, instead 
of: 

JMP $4000 
We could have used the EQUATE directive 
to define a label called START and set it 
to the value of $4000 as follows: 

START = $4000 
JMP START 

By using labels in operands instead of ab- 
solute numbers, programs are easier to 
change if the need arises. Imagine having to 
change 50 "JMP $4000" instructions to 
"JMP $5000." If we used "JMP START" in- 
stead, we'd only have to change the "START 
= $4000" to "START = $5000." This would 
automatically change the 50 JMP in- 
structions! 

The last field in an assembler statement is 
the comment. Comments are optional, but 
encouraged. Comments are like REMarks in 
BASIC— they help document what the 
programmer is doing. This is especially im- 
portant in assembler programs, which are 
somewhat difficult to decipher. 

Comments are preceded by a semicolon (;). 
Everything after the semicolon is ignored by 
the assembler. Comments should be used as 
often as possible, especially when a section 
of code is fairly complex. This will not only 
help others who use the program, but will 
help you if you need to make changes to the 
program at a later date. 



Where to Put the Program? 

In BASIC, the programmer doesn't really 
care where the program is placed in memory. 
BASIC handles all these messy details for the 
programmer, who simply writes program 
code. This is one of the benefits of a high- 
level language like BASIC. 

As mentioned last issue, the assembly lan- 
guage programmer must know at all times 



what locations a program is using. Without 
total knowledge of a program's location, it is 
possible to overlap memory used by the sys- 
tem and cause an irrecoverable "lock-up." 

Let's look at what memory locations are 
available to us in the Atari computer system. 
This discussion will apply to users of the 
Atari assembler-editor cartridge only. 

Plug your cartridge into the computer and 
turn on the power. When the EDIT prompt 
appears, type SIZE and press Return. The 
cartridge will show three nubers, such as: 

0700 0800 3CIF 
The first number is the bottom of RAM, the 
second is the end of the text-editor buffer, and 
the third is the highest available RAM 
address. 

Since readers have different amounts of 
memory and since cassette and disk systems 
use different amounts of memory, each reader 
must decide where to place the object pro- 
gram in memory. To do this, subtract about 
$600 (1536 bytes) from the last number 
above. In this case, the number is 
$3C1F-$0600=$361F. Round this down to the 
nearest 256 bytes and you have $3600. This 
will be the starting address of your object pro- 
gram. Use this address in the "*=" direc- 
tive of the program in this column. 

There are also 256 bytes available for use 
at $0600=$06FF, or page 6. We will be us- 
ing this area later for subroutines called by 
BASIC. The term "page" is used to refer to 
a 256-byte section of memory. The page num- 
ber comes from the first two digits of the hex 
address. $0200-$02FF is page 2, 
$0800-08FF is page 8, etc. 

The last memory available to us has spe- 
cial significance. This memory lies on page 
0, $0000-$OOFF When the 6502 knows a byte 
is on page 0, it only needs the last two hex 
digits to address it. This allows the 6502 to 
access the information faster, with a smaller 
program, since only one byte is needed in the 
operand instead of the usual two needed for 
an address. 

Since page addresses can be accessed 
faster with less program memory, it is obvi- 
ously good to use page whenever possible. 
The problem is, the system uses some of page 
for its own needs. The entire first half of 
page ($0000-$007F) is always used by the 
system. The second half ($0080-$00FF) is 
available to assembly language programs if 
no cartridges are in use. 
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At times, you 11 feel 

like a traffic cop 

trying to direct 

hundreds of cars 

through an ordinary 

doorway. After just a 

few hourSy youll see 

how important the 

accumulator is. 



Unfortunately, the Atari assembler-editor 
cartridge only allows you to use Locations 
$BO-$CF. These locations are probably suffi- 
cient for most testing purposes. 

When writing assembly language programs 
to be called as subroutines by Atari BASIC, 
only Locations $CB-$D1 and $D4-$D5 can 
be used without conflict with BASIC'S work 
areas. If an assembly subroutine needs tem- 
porary work areas. Locations $D6-$F1 can 
be used. These areas will probably be 
changed by BASIC after the assembly subrou- 
tine ends, but they will work fine as tem- 
porary storage locations. 
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A Few Instructions 

Now we're ready to look at a few 6502 
operation codes and see how they work. We'll 
start with the most frequently used instruc- 
tions and work our way up to the rarely used 
instructions. 

Without a doubt, the most frequently used 
6502 operation code is LDA, or LoaD Ac- 
cumulator. This instruction places a desired 
number in the A register, or accumulator. 

The accumulator is used in all addition and 
subtraction operations, as well as most other 
arithmetic that can be performed on the 6502. 
You must move numbers in and out of the ac- 
cumulator constantly, keeping track of the 
results. At times, you'll feel like a traffic cop 
trying to direct hundreds of cars through an 
ordinary doorway. After just a few hours of 
assembly programming, you'll see how im- 
portant the accumulator is. 

The LDA instruction has eight different 
formats, each with its own addressing 
method: 



LDA #n 

LDA nn 

LDA n 

LDA (n,X) 

LDA (n),Y 

LDA n,X 

LDA nn,X 

LDA nn,Y 



(Immediate) 
(Absolute) 
(Page zero) 
(Pre-indexed indirect) 
(Post-indexed indirect) 
(Zero page indexed X) 
(Indexed X) 
(Indexed Y) 



Each of these instructions work different- 
ly in order to load the accumulator. They find 
the address from which they are to get the 
number and place it in the accumulator, des- 
troying whatever was there before. Once the 
number is placed in the accumulator, 
however, the instructions act alike. 

Let's assume the number loaded into the 
accumulator was $94, shown below in its bi- 
nary form (note the " %" sign preceding the 
binary number). 

$94 = % 10010100 

All LDA instructions take special informa- 
tion from the number loaded and set 
microprocessor status flags accordingly. The 
two flags changed are the sign flag and the 
zero flag. 

The zero flag is set to 1 if the number load- 
ed was 0, and is set to if the number was 
not 0. This flag is mainly used for branch- 
ing, which we will cover later 

The sign flag is set to the value of the high- 
order (or leftmost) bit of the number load- 



ed. You should remember that an 8-bit byte 
can contain numbers from 0-255. This is true 
when we are considering the numbers to be 
unsigned. The 6502 uses a signed number- 
ing system that can be somewhat confusing. 

Whenever a number's high-order bit is a 
1, the number is considered to be negative. 
Using this method, a byte can contain num- 
bers from -128 to 127. How does this work? 
Let's start with the positive numbers. 

Positive numbers in the 6502 signed num- 
ber scheme range from (which is always 
considered positive) to 127. The upper limit 
of 127 is set because if the number is 128, 
the high-order bit will be set to 1 and the 
number is negative. 

Negative numbers range from -1 to -128 
in the 6502 system. If we subtract 1 from 
in the 8-bit byte format, the byte's contents 
will "wrap around" to the bit pattern UllllU, 
which is 255. 255 corresponds to -1 in this 
scheme. An easy way to remember the rela- 
tionship here is the following calculation: 

UNSIGNED NUMBER -256 = 
SIGNED NUMBER 

Using this formula with the unsigned num- 
ber 255, we can see that 255—256= —1, 
which is correct. We can easily find the 
signed counterpart to 128, or 128-156 = 
-128. 

Now you can see exactly how the sign flag 
works. This flag will be very important later 
when we perform comparisons. 

The next instruction, which is used almost 
as much as the LDA instruction is STA or 
STore Accumulator, this instruction does 
almost the same thing as the LDA, but in 
reverse. 

The STA instruction has the following 
formats: 



STA nn 

STA n 

STA (n,X) 

STA (n),Y 

STA n,X 

STA nn,X 

STA nn,Y 



(Absolute) 
(Page zero) 
(Pre-indexed X) 
(Post-indexed Y) 
(Page zero indexed X) 
(Absolute X) 
(Absolute Y) 



You will notice that the STA instruction has 
the same formats as the LDA instructor ex- 
cept for the immediate format. Think about 
it for a minute and the reason should be 
obvious. 
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The STA instruction simply places 
whatever number is in the accumulator into 
the address specified in the operand. The 
number in the accumulator will be unaffect- 
ed, and will still be available for your use. 

The STA instruction does not affect any 
status. 

A third instruction that is widely used is 
the JMP instruction. This instruction is just 
like BASIC'S GOTO statement. Whenever 
this instruction is executed, the program will 
jump to the address specified and continue 
processing. The address jumped to must con- 
tain executable program statements, so take 
care. 

The JMP instruction has two formats: 



JMP nn 
JMP (nn) 



(Absolute) 
(Indirect) 



As noted above in the discussion of the in- 
direct format, the indirect jump is rarely 
used, but can be very helpful in special situ- 
ations. 

The absolute jump instruction is the most- 
used form of the JMP operation code. The 
address specified can either be a hex or a 
decimal number or a label that is defined 
elsewhere in the program. 

The JMP instruction does not affect any 
status flags. 

Applying the Instructions 

Now that we've described the LDA, STA 
and JMP instructions, let's apply them in a 
short program. 

The program in Figure 2 is essentially a 
"do-nothing." It will simply move numbers 
around in memory until we stop it. Type the 



0100 


;** DO 


-NOTHING DEMO PROGRAM «* 


0110 


1 








0120 


;BY TOM HUDSON 




0138 


i 








0140 




*- 


5???? 


J YOUR ORIGIN 


0150 


I 








0160 


ST6RT 


LDA 


BYTEl 


;C0PY BYTEl. 


0170 




STA 


BYTE2 


;T0 BYTE2 


0180 




LDA 


«7 


;PUT A 7. . . 


0190 




STA 


BYTE3 


;IN BYTES 


0200 




JMP 


PART2 


/JUMP I 


0210 


I 








0220 


P(^RT1 


LDA 


BYTE2 


;MOUE BYTE2. 


0230 




STA 


BYTE4 


;T0 BYTE4 


0240 




JMP 


PART3 


;AND JUMP 


0250 


I 








0260 


PflRT2 


LDA 


RANDOM 


J MOVE RANDOM 


0270 




STA 


BYTEl 


J TO BYTEl 


0280 




JMP 


PARTI 


;AND JUMP! 


0250 


1 








0308 


PftRT3 


LDA 


BYTE4 


JMOUE BYTE4. 


0310 




STA 


BYTES 


;T0 BYTES 


0320 




JMP 


START 


;AND JUMP! 


0330 










0340 


J DATA 1 


BYTES START 


HERE! 


0358 










0360 


BYTEl 


.BYTE 1 


; NUMBER 1 


0370 


ByTE2 


.BYTE 2 


; NUMBER 2 


0380 


BYTE3 


.BYTE 3 


;NUMBER 3 


0398 


BYTE4 


.BYTE 4 


/NUMBER 4 


0400 


BYTES 


.BYTE 5 


/NUMBER S 


0410 


RANDOM 


r 


$D2eA 


/RANDOM NUMBI 


0420 


1 








0430 




.END 





Figure 2. 



program into your computer, remembering 
to set your origin value (*= in Line 140) as 
described above. 

When you have entered the program and 
set the origin at Line 140, type ASM and 
press Return. The program will be assembled 
into memory and ready to execute. 

Before executing the program, let's look at 
Figure 2. The first thing you'll notice in the 
listing is the presence of comments. I can't 
overemphasize the importance of comments 
in an assembly language program. They're 
simply a must whenever you're writing pro- 
grams, even for yourself. You'll notice that 
some comment lines are simply semicolons 
with no comment. These are used as separa- 
tors to break up sections of code. For exam- 
ple, each label group (i.e., START, PARTI, 
PART2, etc.) is a distinct group in the listing. 

Remember, comments don't take up any 
program space in assembly language, so use 
them as often as possible! 

Line 160— loads the accumulator 
with the number 7, wiping out what- 
ever was previously in the accumula- 
tor. Remember that whenever the 
accumulator is loaded, the contents of 
the accumulator before the load will be 
lost. 

Line 190— stores the 7 just loaded 
into the accumulator at the location la- 
beled BYTE3. This is also a very com- 
mon operation. 

Line 200— jumps to PART2, and ex- 
ecution continues there. 

Line 220— labeled PARTI, loads the 
accumulator from the location marked 
BYTE2. 

Line 230— stores the value just load- 
ed from BYTE2 into the location la- 
beled BYTE4. 

Line 240— jumps to PART3. 

Line 260— labeled PART2, loads a 
byte from the computer's random num- 
ber generator at $D20A. This location 
gives a random number from 0-255. 

Line 270— stores the random num- 
ber at the location labeled BYTEl. 

Line 280— jumps to PARTI. 

Line 300-labeled PART3, loads the 
accumulator from the location labeled 
BYTE4. 

Line 310 — stores the number just 
loaded at Location BYTES. 
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Line 320— jumps to START. This 
causes the program to loop forever un- 
til you press the Break key. 

Lines 360-400— define the bytes la- 
beled BYTE1-BYTE5. The .BYTE 
directive is used to assign initial values 
to the locations. BYTEl will contain 
1, BYTE2 will contain 2, etc. 

Line 410— uses the EQUATE direc- 
tive to define the address of the label 
RANDOM. This location is $D20A 
(53770 decimal). Whenever the label 
RANDOM is referenced, the computer 
will use the value $D20A. 

Line 430— uses the .END directive 
to tell the assembler the end of 
the code has been reached. This 
directive is optional, but recom- 
mended. 

Tracing the Action 

Now you can execute the above program 
and see what it does. Note the address you 
used in Line 140. With the EDIT prompt on 
the screen, type BUG and press Return. The 
DEBUG prompt will appear. 

Type L followed by the address you used 
in Line 140 and press Return. For example, 
if your Line 140 reads: 

* = $4300 
You should type L4300 and press Return. 
The computer will show you how your pro- 
gram appears in memory, and it should look 
something like Figure 3. 



Your listing will probably vary from this 
illustration, which was as.sembled to Loca- 
tion $6000. Note that the BYTE1-BYTE5 
values appear in memory from $6029-$602D, 



of the variables BYTE1-BYTE5 after each 
statement is executed. Note that the value 
present in RANDOM cannot be predicted 
and is indicated by "R#." 



eoee 


AD 


29 


60 


LDA 


S6029 


6G03 


8D 


2A 


60 


5TA 


$602A 


6006 


A5 


07 




LDA 


tt$07 


6008 


8D 


2B 


60 


STA 


$602B 


600B 


4C 


17 


60 


JMP 


55017 


600E 


AD 


2A 


60 


LDA 


$602A 


6011 


8D 


2C 


60 


STA 


S602C 


6014 


4C 


20 


60 


JMP 


$6020 


6017 


AD 


OA 


D2 


LDA 


$D20A 


601A 


8D 


29 


60 


STA 


$6029 


601D 


4C 


0E 


60 


JMP 


$600E 


6020 


AD 


2C 


60 


LDA 


$602C 


6023 


8D 


2D 


60 


STA 


$602D 


6026 


4C 


00 


60 


JMP 


$6000 


6029 


01 


02 




ORA 


t$02,X) 


602B 


03 






??? 




602C 


04 






??? 




6020 


05 


00 




ORA 


tt$O0 


602F 


00 






BRK 




6030 


00 


Fig 


;ure 3 


BRK 











STATEMENT 


A 


BT. 


BT. 


BT. 


BT. 


BT. 










RG. 


1 


2 


3 


4 


5 


160 


START 


LDA 


BYTEl 


01 


01 


02 


03 


04 


05 


170 




STA 


BYTE2 


01 


01 


01 


03 


04 


05 


180 




LDA 


#7 


07 


01 


01 


07 


04 


05 


190 




STA 


BYTE3 


07 


01 


01 


07 


04 


05 


200 




JMP 


PART2 


07 


01 


01 


07 


04 


05 


260 


PART2 


LDA 


RANDOM 


R# 


01 


01 


07 


04 


05 


270 




STA 


BYTEl 


R# 


R# 


01 


07 


04 


05 


280 




JMP 


PARTI 


R# 


R# 


01 


07 


04 


05 


220 


PARTI 


LDA 


BYTE2 


01 


R# 


01 


07 


04 


05 


230 




STA 


BYTE4 


01 


R# 


01 


07 


01 


05 


240 




JMP 


PART3 


01 


R# 


01 


07 


01 


05 


300 


PART3 


LDA 


BYTE4 


01 


R# 


01 


07 


01 


05 


310 




STA 


BYTES 


01 


R# 


01 


07 


01 


01 


320 




JMP 


START 


01 


R# 


01 


07 


01 


01 


160 


START 


LDA 


BYTEl 


R# 


R# 


01 


07 


01 


01 


170 




STA 


BYTE2 

Figure 


R# 

4. 


R# 


R# 


07 


01 


01 



and the computer tries to show the bytes as 
instructions (like ORA #$00). Simply ignore 
such instruction whenever you know they are 
misinterpreted data. 

If your program is at the proper location, 
you are ready to watch its execution. Type 
T followed by the address in Line 140 and 
press Return. 

The computer will begin tracing the exe- 
cution of your program one line at time. Each 
instruction will be shown along with its ad- 
dress and the contents of the 6502 registers 
after the instruction executes. Page 40 of the 
Atari assembler-editor manual describes the 
trace operation in detail. 

At any time in the execution you may stop 
the program with the Break key and examine 
the BYTE1-BYTE5 locations (note their ad- 
dresses at assembly time) by using the Dnnnn 
command, described on page 36 of the 
assembler-editor manual. 

We are interested in seeing how the instruc- 
tions we used are executed and how they af- 
fect memory. Figure 4 shows the lines of the 
program as they are executed and the status 



(Try the next 10 steps yourself!) 

As stated earlier, this is a "do-nothing" 
program, and will continue to execute 
forever unless it is stopped by the user. If 
you'd like a demonstration of this infinite 
execution, type G followed by the address 
in Line 140 and press Return. The com- 
puter will begin executing the do-nothing 
at an unbelievable speed, and won't stop 
until you press Break. You won't see any- 
thing happen during the program's execu- 
tion, but you can rest assured that the 
computer is following your instructions to 
the letter. 



Stay Tuned 



Next issue, we'll start digging into more 
6502 operation codes, learn to add and sub- 
tract, and work with index registers. Until 
then, make your own short programs us- 
ing the instruction we've covered. I real- 
ize these three aren't enough to create 
complex programs, but knowledge of their 
use is essential to future lessons. H 
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Welcome back! This month we will 
discuss external commands, how 
external commands interface with 
BBKCP, and how to write your 
own external commands. There 
are also four external commands supplied 
with this installment. Let's get to it. 

More on External Commands 

Last month we said an external command 
is something that the internal or memory resi- 
dent portion of BBKCP does not understand. 
Such a command is loaded from disk each 
time it is called. Almost all external com- 
mands are destructive to memory, meaning 



routines in BBKCP. These routines are called 
by a 6502 JSR instruction. Any parameters 
or initial conditions for the routines will be 
given also. 

By using the routines in the table, we may 
write any number of external commands, per- 
forming almost any operation. Here are some 
samples. 



The External Goodies 

Listings 1 through 4 are the data needed 
to create your copies of the four external com- 
mands described below. You should type in 
this data using the M/L Editor on page 61. 



This command will toggle the batch-file 
processing feature of BBKCP on or off. Af- 
ter the file executes, a message will be dis- 
played telling you about the status of batch 
processing. 

This command is not destructive to 
memory. It was included because certain pro- 
grams and games published in ANALOG will 
fail to run if batch processing is left on. 

COMMAND #2; DUMP /addry 
This is a memory dump utility that loads 
and runs at $2480. It will begin dumping 
the contents of memory on the screen from 
the address you specify. Press Start or 
Break to return to BBKCP. 



Super 
mmanil 

ProcessoTj 





Part II 



that when an external command is executed 
any program in memory will be lostl 

External commands interface directly by 
calling routines built into BBKCP. By doing 
this, filenames, addresses and numbers may 
be sent to an external command. Table 1 gives 
the name, address and description of special 



by Bryan Schappel 

Listings 5 through 8 are the assembly lan- 
guage source codes for the four external com- 
mands. You need not type these listings; they 
are provided only for those who are interest- 
ed in assembly language programming. 

COMMAND #1: DISBAT** 



COMMAND #3: SAVE fname start end 
/init run7 

This allows you to perform a binary save 
of memory. You must provide a legal file- 
name, a start address, an end address and 
optional initialize and run addresses. 



COMMAND PROCESSOR 

NAME HEX ADDRESS DESCRIPTION 



ADDRESS 23B7 



Contains the last RUN address of an external 
command. Contains address for the RUN 
command. 



CLOSEl 



1EE4 



Closes lOCB #1 Returns with X =$10 



CLOSE2 



1EE8 



Closes lOCB #2. Returns with X=$20. 



4B 
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CLOSEIT lEEA 



DEFDEV 2354 



DEVICE 23B9 



EPRINT 1E64 



FINDARG 21F4 



FINDFILE IFDB 



GRAB_HEX 1E9D 



HEXDIG 236B 



INPUT 



1EF7 



lOERROR IFAC 



LNPOS 



OODF 



MYBUF 



0500 



WARMST 0008 



Closes ANY lOCB. enter with X=IOCB 
offset. ($00, $10, $20,. . .) 



This is the default device and 
device number in the format Dl. 



Contains a correct DOS filename in the format 
of D 1 : filename . ext . 



Will print a NULL terminated string to the 
screen. Enter with A,Y being the LO.HI of 
your text. (NULL=0). 



Will find the start of the next argument on the 
command line. Enter with Y = search offset. (IE 
Y = 3 says start search on Character 4.) 
Exits with Y and LNPOS = start of argument. 



Enter with Y = start of name and DEVICE 
will return the filename in the 
D 1 : filename . ext format . 



FNAME 


23BC 


Start of formatted filename. 
Same as DEVICE + 3. 


FRO 


00D4 


Contains the result of a GRAB HEX. 
$D4 is LO byte and $D5 is HI byte. 


GOCART 


IFll 


Tries to RUN a cartridge. Calling this is the 
same as issuing a CAR command. 



Pulls a hex address from the command line. 
Enter with Y = offset. 
Exit: Carry Clear means good number 
Carry Set means bad number. 



Contains the ATASCII hexadecimal digits. 
0-9 and A-F. 



Prints the current prompt and accepts one 
64-byte line from the screen editor. 



Closes lOCB #1 and prints the I/O error num- 
ber on the screen in decimal. 
Enter with Y = error number. 



Contains the current offset to the argument on 
the command line. 



64-byte command line buffer. 



Warm start flag. If the value here is $FF, 
memory contents are OK. If value is $00, 
memory will be wiped out. 



COMMAND #4: FORMAT** 

This is a diskette initialization program. 
The menu contains five options: Format, 
Write DOS, Format and Write DOS, 
Change Drive and Exit. Just press the num- 
ber next to the description to select your 
option. If you choose an option between 
1 and 3, you are asked to insert a disk and 
press Return. Pressing Return begins the 
process; pressing any other key aborts the 
option, returning you to the menu. 

When you choose to write DOS, FOR- 
MAT not only writes the DOS. SYS file, but 
it also writes the AUTO RUN. SYS version 
of BBKCP to the disk. 

Option 4 allows you to alter the drive 
number that the commands are being ex- 
ecuted on. Just type the new drive num- 
ber, and you are returned to the menu. 

Option 5 returns you to BBKCP. 

Writing External Commands 

All external commands must be written 
in machine language, therefore you must 
be familiar with 6502 assembly language. 
Here are a couple of rules to follow. 

Rule #1: Assemble all your commands 
with an origin not less than $2410, other- 
wise part of BBKCP would be overwritten, 
causing a system crash. 

Rule #2: While a batch file is being 
processed never use lOCB ff5. Doing so 
will most likely cause a system crash. This 
is the lOCB that the input is being redirect- 
ed from— take care. 



Some Tips 
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If you write a small external command 
that is less than 448 bytes long, you may 
load it at $0540 and set WARMST back to 
a $FF, thus preserving the contents of 
memory. 

Study the source code for the external 
commands given in this issue. They will 
guide you in the method of writing your 
own commands. Some extra commands 
you may consider writing would be a mul- 
tifile copy program, a disk copier or a 
simple assembler/disassembler. The pos- 
sibilities are quite endless. 

By the time you read this, Bryan and 
Carol will have been happily married for 
a while. Tlteir new apartment contains a 
new Mega ST2, which shares the computer 
room with the 800XL. The compu-kids get 
along very well — if you overlook the cons- 
tant battle for the printer. 



LISTING 1: MIL EDITOR DATA 



LISTING 4: M/L EDITOR DATA 



leee data 

3,8,34,20 
1010 DATA 
,159,169, 
1020 DATA 
2,169,3,1 
1030 DATA 
51,141,24 
1040 DATA 
141,18,34 
1050 DATA 
6,115,228 



255,25 
1,160,2 

160,14 
141,10 

141,24 
41,249, 

75,141 
8,32,16 

32,169 
,172,21 

153,26 
,0,0,0, 



5,0,5,84,5 
40,32,169, 
1,8,34,169 
34,169,185 
7,32,159,2 
32,208,41, 
,247,32,14 
9,33,141,2 
,125,141,9 
5,35,169,0 
,3,169,228 
0,0,8563 



,104,104,17 

6842 

,0,141,9,34 

,5154 

6,141,248,3 

159,8132 

1,8,34,169, 

49,8339 

,34,169,33, 

,3585 

,153,27,3,7 



LISTING 2: MIL EDITOR DATA 



1000 DATA 255,255,128,36,78,37,164,22 

3,185,0,5,201,155,208,13,173,7859 

1010 DATA 181,35,133,212,173,182,35,1 

33,213,76,155,35,32,154,30,144,5925 

1020 DATA 1,96,155,212,133,203,165,21 

3,133,204,165,204,160,0,32,8,7485 

1030 DATA 37,165,203,150,2,32,8,37,16 

0,0,132,224,177,203,72,201,8219 

1040 DATA 155,208,2,159,27,153,62,37, 

165,224,189,71,37,158,104,32,5646 

1050 DATA 8,37,164,224,200,192,8,208, 

225,152,24,101,203,133,203,144,1263 

1060 DATA 2,230,204,162,0,169,9,141,6 

5,3,169,33,141,68,3,169,3400 

1070 DATA 37,141,69,3,169,1,141,73,3, 

141,254,2,32,86,228,48,4093 

1080 DATA 7,173,31,208,201,7,240,152, 

169,0,141,254,2,96,72,41,5607 

1090 DATA 15,170,189,105,35,153,34,37 

,104,41,240,74,74,74,74,170,4761 

1100 DATA 189,105,35,153,33,37,96,48, 

48,48,48,32,48,48,32,48,8027 

1110 DATA 48,32,48,48,32,48,48,32,48, 

48,32,48,48,32,48,48,6998 

1128 DATA 32,48,48,32,32,32,32,32,32, 

32,32,32,155,5,8,11,6077 

1130 DATA 14,17,20,23,26,0,0,0,0,0,0, 

8,0,8,0,0,1460 



LISTING 3: MIL EDITOR DATA 



1000 DATA 255,255,16,36,16,37,154,223 

,32,212,31,154,223,32,237,33,7338 

1010 DATA 32,154,30,176,47,155,212,13 

3,204,165,213,133,205,15 4,223,32,2160 

1020 DATA 237,33,132,203,32,154,30,17 

6,27,165,212,133,206,165,213,133,1355 

1030 DATA 207,32,221,30,32,195,34,32, 

149,31,169,8,157, 74,3,32,1148 

1040 DATA 85,228,16,3,76,221,30,32,20 

5,36,48,248,32,205,35,48,4117 

1050 DATA 243,32,252,36,48,238,155,20 

4,133,214,165,205,133,215,155,206,483 

4 

1060 DATA 56,229,214,133,218,165,287, 

229,215,133,219,230,218,288,2,238,599 

9 

1070 DATA 219,32,10,37,48,206,164,203 

,32,237,33,132,203,32,154,30,6261 

1080 DATA 176,194,32,241,36,169,225,1 

33,204,169,228,133,206,169,2,133,1376 

1090 DATA 205,133,207,32,252,36,48,17 

2,32,227,35,48,167,164,203,32,7052 

1100 DATA 237,33,32,154,30,175,157,32 

,241,36,169,224,133,204,169,226,2488 

1110 DATA 133,205,169,2,133,205,133,2 

07,32,252,36,48,135,32,227,36,6616 

1120 DATA 76,221,30,159,255,72,162,15 

,169,0,157,72,3,157,73,3,2855 

1130 DATA 169,11,157,55,3,104,75,85,2 

20,173,17,37,32,207,35,48,2950 

1140 DATA 15,173,18,37,75,287,35,155, 

212,141,17,37,155,213,141,18,5377 

1150 DATA 37,96,169,4,133,218,169,8,1 

33,219,133,215,159,204,133,214,2960 

1150 DATA 169,11,162,16,76,55,30,0,0, 

0,0,0,0,8,0,0,2821 



1000 DATA 255,255,128,36,199,39,173,1 

84,35,141,90,38,160,2,185,8,4387 

1010 DATA 34,153,35,39,185,30,39,153, 

8,34,185,247,32,153,39,39,3394 

1020 DATA 185,33,39,153,247,32,136,16 

,229,169,55,160,38,32,97,30,3778 

1030 DATA 173,98,38,141,36,38,141,55, 

38,141,48,38,32,13,38,48,8488 

1040 DATA 251,141,20,39,56,233,49,48, 

243,201,5,176,239,72,169,20,7528 

1050 DATA 160,39,32,97,30,133,203,104 

,170,240,11,202,240,14,202,240,1534 

1060 DATA 17,202,240,27,208,43,32,29, 

37,75,153,36,32,102,37,76,995 

1070 DATA 163,36,32,29,37,165,283,208 

,3,3 2,107,37,76,163,36,169,4259 

1080 DATA 7,160,39,32,97,30,32,13,38, 

41,127,141,90,38,76,163,1936 

1090 DATA 36,168,2,185,35,39,153,8,34 

,185,39,39,153,247,32,135,4897 

1100 DATA 16,241,96,32,22,38,248,3,23 

0,203,95,169,211,150,38,32,7305 

1110 DATA 97,30,32,221,30,169,35,157, 

68,3,169,38,157,69,3,169,3625 

1120 DATA 0,157,75,3,157,74,3,159,254 

,157,66,3,32,86,228,16,4187 

1130 DATA 25,152,72,169,21,160,39,32, 

97,30,104,158,32,155,31,230,5150 

1140 DATA 203,169,198,160,38,32,97,30 

,76,29,38,96,32,22,38,208,1382 

1150 DATA 250,169,22 ',160,38,32,97,30 

,32, 252, 37, 169, 54, IS ',58, 3, 3571 

1150 DATA 159, 38, 15.', 69, 3, 32, 85, 228, 4 

8,199,32,252,37,169,39,157,5527 

1179 DATA 68,3,169,38,157,69,3,32,85, 

228, 48, 181, 152, 16, It 9, 24, 4382 

1188 DATA 157,68,3,169,39,157,59,3,16 

9,6,157,72,3,169,0,157,2891 

1190 DATA 73,3,169,11,157,65,3,32,86, 

228,48,149,162,16,169,124,5497 

1208 DATA 157,68,3,169,29,157,59,3,16 

9,57,157,72,3,169,5,157,3461 

1210 DATA 73,3,159,11,157,66,3,32,85, 

228,48,32,152,16,169,11,2385 

1220 DATA 157,66,3,159,42,157,68,3,16 

9,39,157,69,3,159,158,157,5599 

1230 DATA 72,3,159,8,157,73,3,32,86,2 

28,16,3,76,75,37,76,390 

1240 DATA 221,30,32,221,30,32,195,34, 

159,8,157,74,3,159,0,157,3613 

1258 DATA 75,3,96,173,37,228,72,173,3 

6,228,72,95,159,185,160,38,8095 

1260 DATA 32,97,30,32,13,38,201,155,9 

5,68,32,58,155,68,32,58,1611 

1270 DATA 65,85,84,79,82,85,78,46,83, 

89,83,155,68,32,58,68,1507 

1280 DATA 79,83,46,83,89,83,155,125,7 

0,79,82,77,65,84,32,85,2130 

1290 DATA 84,73,76,73,84,89,155,155,5 

8,101,118,105,99,101,32,68,3768 

1300 DATA 32,58,155,155,150,205,197,2 

06,213,150,155,49,46,32,70,111,7272 

1310 DATA 114,109,97,115,155,50,45,32 

,87,114,185,115,181,32,68,79,2555 

1328 DATA 83,155,51,46,32,78,111,114, 

109,97,116,32,97,110,188,32,2743 

1330 DATA 87,114,105,116,101,32,68,79 

,83,155,52,46,32,67,104,97,2116 

1340 DATA 110,103,101,32,68,114,105,1 

18,181,32,35,155,53,45,32,69,1181 

1350 DATA 120,105,116,155,155,79,112, 

116,105,111,110,32,62,32,0,73,1680 

1360 DATA 110,115,101,114,115,32,68,7 

3,83,75,44,32,80,114,101,115,2647 

1370 DATA 115,32,82,69,84,85,82,78,0, 

155,155,70,111,114,109,97,4520 

1388 DATA 115,116,105,110,103,46,46,4 

5,0,155,155,87,114,105,116,105,4535 

1390 DATA 110,103,32,58,79,83,46,46,4 

6,0,155,155,87,114,185,115,3794 

1400 DATA 105,110,103,32,66,66,75,67, 

80,46,45,46,0,78,101,119,598 

1410 DATA 32,68,114,105,118,101,32,35 

,32,0,32,155,155,0,255,255,5460 

1420 DATA 124,29,198,35,160,0,169,185 

,26, 3, 0,0, 0,0, 0,0, 6063 
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1430 
,82, 
1448 
2,21 
1458 
97,3 
1460 
,86, 
1478 
188, 
1488 
97,3 
1498 
,32, 
1500 
32,6 
1510 
2,66 
1528 
0,22 



DATA 
85,78, 

DATA 
7,35,1 

DATA 
0,32,2 

DATA 
228,8, 

DATA 
250,19 

DATA 
8,184, 

DATA 
48,67, 

DATA 
7,111, 

DATA 
,114,1 

DATA 
■*,2,2, 



118, 
45,6 
155, 
34,8 
32,1 
25,3 
32,1 
32,2 
16,1 
1,16 
32,9 
104, 
155, 
41,3 
56,5 
189, 
105, 
21,9 
104, 
8,10 



30,68 
6, 65, 
8,10, 
,232, 
99,32 
0,32, 
49,31 
25,38 
0,165 
9,81, 
7,30, 
76,28 
66,66 
2,49, 
5,32, 
112,1 
118,1 
7,118 
97,11 
,36,8 



,49,5 
84,11 
36,13 
134,9 
,169, 
195,3 
,169, 
,40,2 
,6,28 
168,3 
169,1 
,34,1 
,75,3 
57,82 
65,78 
17,11 
03,15 
,32,8 
2,112 
,0,75 



8,65,85,84,79 

98 

9,35,152,8,14 

4761 
83,150,36,32, 
4,3867 

4,157,74,3,32 
471 

8,3,108,10,0, 
5,6332 

86,160,35,32, 
25,2318 
2,67,80,32,45 
50 

,65,76,79,71, 
6,3590 

5,98,121,58,3 
3,99,3578 
,101,108,155, 
32 
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8188 
8118 


.OPT NO LIST 






0128 


BATCH 


File Processing Disable 


0130 


Utility. 


8148 






0158 


External CoMMand ttl 


8160 






8178 


by: Bryan Schappel 


0180 






8190 


CP Call i 


8200 
8210 


DISBAT 








8220 






8230 


Equate 


5 


8248 






0250 r 


-IND_E 


= 520F7 


0250 E 


iATCH = 


S2208 


0278 t 


IAIN = 


$217D 


8280 ; 


)KIP_BAT = S2133 


8298 t 


IATAB5 


: S031A 


8380 : 


[NDEX = 


S23D8 


8318 F 


!E5ET = 


$20C1 


8328 






8330 


»:; 


$0500 


0340 






0350 '. 


>TART PLA 


0360 


PLA 




0370 


LDA 


BATCH 


0380 


CMP 


«$A0 JLDY « 


8398 


BEQ 


DIS_BAT 


8488 , 






8418 , 


Re-enable Batch Processing 


8428 , 






8438 


LDA 


tt5A0 JLDY » 


8448 


5TA 


BATCH 


8458 


LDA 


tte 


8468 


5TA 


BATCH+l 


8478 


LDA 


«5A9 J LDA 8 


8488 


5TA 


BATCH+2 


0490 


LDA 


«5B9 JLDA HATAB5,Y 


8500 


STA 


FIND_E 


0510 


LDA 


« <HATABS 


8528 


STA 


FIND_E+1 


8538 


LDA 


« >HATABS 


8548 


STA 


FIND_E+2 


8558 


BNE 


LEAVE 


0568 , 






8570 , 


Disable BATCH Processing 


8588 , 






0590 C 


I5_BAT 


LDA ttS4C J JMP 


0680 


STA 


FIND_E 


8618 


STA 


BATCH 


8528 


LDA 


n <SKIP_BAT 


0638 


STA 


FIND_E+1 


8640 


LDA 


« >SKIP_BAT 


8658 


STA 


FIND_E+2 


8660 


LDA 


a <MAIN 


0670 


STA 


BATCH+1 


0680 


LDA 


8 >MAIN 


8690 


STA 


BATCH+2 


8700 


LDV 


INDEX 


0710 


LDA 


ttSOO 


8728 


STA 


HATABS, Y 


0730 


LDA 


«SE4 


8740 


STA 


HATABS+1,Y 


0750 L 


EAyE JMP SE474 



0100 
0110 
0120 


.OPT NO LIST 


MEMORY DUMPER 


8130 


External CoMMand 82 


0140 




8158 


By! Bryan Schappel 


0160 




0170 


CP call: 


0188 
0190 
0200 


DUMP [addr] . 




0218 , 


Equates 


0220 , 




0230 HEKDIG = S2369 


0240 GRAB_HEK = 51E9A 


0250 C0N50L = SDOIF 


0260 LNPOS = SDF 


8278 SAUEY = 5E8 


0280 EOL = $9B 


0290 FRO = SD4 


8380 DSPFLG - S02FE 


0310 MYBUF = S0508 


8328 ADDRESS = S23B5 


8338 INDR = SCB 


8348 ICCOM = S8342 


8358 ICBAL = S0344 


8368 ICBAH = 58345 


0370 ICBLL = S0348 


0380 ICBLH = S8349 


8398 CIOU = $E4S6 


8408 ; 




8418 


*= $2480 


8428 ; 




8438 START LDY LNPOS 


8448 


LDA MYBUF, Y 


8458 


CMP 8E0L 


8458 


BNE GET_HEK 


8478 


LDA ADDRESS 


8488 


STA FRO 


0498 


LDA ADDRE55+1 


8500 


STA FR8+1 


0518 


JMP HEXl 


0520 ; 




0530 GET_HEK J5R GRAB_HEK 


0540 


BCC HEXl 


0558 


RT5 


0560 ; 




0570 ; 


Menory DUMp is Here 


0580 ; 




0590 HEKl LDA FRO 


8688 


STA INDR 


8610 


LDA FRO+1 


8628 


STA IHDR+1 


8638 NEKT LDA INDR+1 


8640 


LDY «0 


0650 


JSR MAKE_HEX 


0660 


LDA INDR 


0670 


LDY 82 


0680 


JSR MAKE_HEH 


0690 


LDY 80 


8708 LOOP STY SAMEY 


0710 


LDA (INDR),Y 


0720 


PHA 


0730 


CMP 8E0L 


8740 


BNE N0T_E0L 


0750 


LDA 827 


0760 N0T_E0L STA HEX_BUF+29,Y 


0770 


LDK 5AVEY 


0780 


LDA POSIT, X 


8790 


TAY 


0800 


PLA 


0810 


JSR MAKE_HEX 


0820 


LDY SAUEY 


0830 


INY 


0840 


CPY 88 


0850 


BNE LOOP 


8860 


TYA 


8878 


CLC 


0880 


ADC INDR 


8890 


STA INDR 


0900 


BCC NO_HI 


0910 


INC INDR+1 


0920 NO_HI LDH «$0e 


0930 


LDA 89 


0948 


STA ICCOM 


8958 


LDA « <HEX_BUF 


8960 


STA ICBAL 


8978 


LDA 8 >HEK_BUF 


0980 


STA ICBAH 


0990 


LDA 81 


1080 


STA ICBLH 


1810 


STA DSPFLG 
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1820 
1630 
1648 
1650 
1060 
1070 
1080 
1690 
1186 
1118 
1128 
1136 
1146 
11S0 
1160 
1176 
1186 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 



jsR cioy 

BMI KIT 

LDO C0N50L 

CMP «7 

BEQ NEXT 

KIT LDO no 

STfl D5PFLG 
RT5 

;Make a Nunber Hexadexinal 

MftKE_HEX PHft 

AMD aSOF 

T«K 

LDA HEKDIG,K 

STfl HEX_BUF+1,Y 

PLfl 

AND »$F0 

L5R fl 

L5R A 

LSR A 

L5R A 

TAX 

LDA HEXDIG,X 

5TA HEK_BUF,y 

RT5 
I 
jBuf fens 

HEX-BUF .BYTE "0686 08 08 88 " 
.BYTE "00 88 00 88 86 " 
.BYTE '■ ".EOL 

POSIT .BYTE 5,8,11,14,17,20 



.BYTE 23,26 
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0100 


.OPT NO LIST 


0110 




0120 


BINARY SAUE 


6136 


External CoMMand «3 


8140 




0150 


by: Bryan Schappel 


0166 




6176 


CP Call! 


8188 


SAVE fnane start end Cinit run] 


8190 




8268 




8216 


Equates 


8228 




8236 


.NPOS = SDF 


8246 


3RAB_HEK = $1E9A 


6256 


FINDFILE = S1FD4 


6268 


FIHDARG = S21ED 


6278 


CALL-CIO = $1E37 


8288 


CLOSEl = SlEDD 


6296 


5ET_DEU = $1F95 


8368 


5ET_0PN = S22C3 


8310 


RUNAD - $02E8 


0320 


IMITAD = S62E2 


0338 


FRB = $D4 


0348 


ICC6M = $6342 


0358 


ICBAL = 56344 


8366 


ICBAH - $6345 


6378 


TCBLL = SB348 


8386 


ICBLH = $8349 


8398 


AUXl = $834fl 


8466 


ClOy = $E456 


0418 


LP05 = SCB 


0420 


S_SAUE = Sec 


0438 


E_5AUE - SCE 


0440 


SL = $D6 


0450 


SH - $D7 


0460 


BLL = $DA 


0470 


BLH = SDB 


0480 


i 


0490 


«= $2418 


0500 


; 


0510 


START LDY LNPOS 


0520 


JSR FINDFILE jfilenaMe 


0530 


LDY LNPOS 


0540 


JSR FINDARG 


0550 


JSR GRAB-HEX ;start adr 


0560 


BCS NO-SAVE 


0570 


LDA FRO 


0580 


STA S_SAVE 


0590 


LDA FR0tl 


0600 


STA S-SAVE+l 



8618 


LDY 


LNPOS 


8628 


JSR 


FINDARG 


0638 


STY 


LPOS 


8648 


JSR 


GRAB_HEX J end adr 


6658 


BCS 


N0_SAUE 


0660 


LDA 


FRO 


8678 


STA 


E_5AUE 


8688 


LDA 


FR8 + 1 


8698 


STA 


E_5AUE+1 


8780 






8710 


;Start Saue 


8726 






8738 


JSR 


CLOSEl jopen file 


8748 


JSR 


SET_0PN 


8758 


JSR 


SET_DEU 


8760 


LDA 


tt8 


8778 


STA 


AUK1,X 


8788 


JSR 


CIOU 


8798 


BPL 


DO_SAyE 


8808 


/ 




8818 


N0_SAUE 


JMP CLOSEl 


8826 


/ 




6838 


DO_SAUE 


JSR PUT_FF ;send $FF 


8840 


BMI 


NO-SAWE ; header 


8858 


JSR 


PUT_FF 


0888 


BMI 


NO_SAyE 


0878 


JSR 


PUT_HEADER ;send load 


8888 


BMI 


NO_SAUE jadr's 


8898 


f 




8908 


LDA 


S_SAVE ;get len 


8910 


STA 


SL ;to saue 


8928 


LDA 


S_5AVE+1 


8938 


STA 


SH 


8940 


LDA 


E_SAUE 


8950 


SEC 




8968 


SBC 


SL 


0970 


STA 


BLL 


0980 


LDA 


E_5AWE+1 


8998 


SBC 


SH 


1808 


STA 


BLH 


1818 


INC 


BLL 


1828 


BNE 


N_HI 


1636 


INC 


BLH 


1646 


N_HI JSR S_SEG ;send seg 


1050 


BMI 


N0_5AUE 


1060 


LDY 


LPOS 


1070 


JSR 


FINDARG 


1888 


STY 


LPOS 


1090 


JSR 


GRAB_HEX ;init adr 


1100 


BCS 


NO_SAWE 


1110 


JSR 


M0gE_2 


1120 


LDA 


« <INITAD 


1130 


STA 


S_SAUE 


1140 


LDA 


« <:iNITAD+2] 


1150 


STA 


E_SAUE 


1160 


LDA 


tt >INITAD 


1170 


STA 


S-SAVE+l 


1188 


STA 


E_SAUE+1 


1190 


JSR 


PUT_HEADER J put addr'S 


1280 


BMI 


N0_SAUE 


1210 


JSR 


PUT_TEMP jinit adr 


1228 


BMI 


NO_SAUE 


1230 


LDY 


LPOS 


1240 


JSR 


FINDARG 


1258 


JSR 


GRAB_HEX ;run adr 


1268 


BCS 


NO_SAUE 


1278 


JSR 


MOVE. 2 ;save it 


1280 


LDA 


tt <RUNAD ;headers 


1290 


STA 


S-SAUE 


1308 


LDA 


tt <[RUNAD + 21 


1310 


STA 


E_SAVE 


1320 


LDA 


tt >RUNAD 


1338 


STA 


5_SAUE+1 


1348 


STA 


E-SAUE+l 


1350 


JSR 


PUT_HEADER ;send 'en 


1368 


BMI 


N0_SAUE 


1378 


JSR 


PUT_TEMP ;send run adr 


1388 


JMP 


CLOSEl ;all done 


1396 


; 




1400 


;Send a 


SFF 


1410 


; 




1420 


PUT_FF LDA «$FF 


1430 


J 




1440 


jPut 1 byte to file 


1450 


; 




1460 


PUT_BYTE PHA 


1470 


LDX 


ttsio 


1480 


LDA 


tto 


1498 


STA 


ICBLL,X 


1588 


STA 


ICBLH, X 


1510 


LDA 


ttll 


1520 


STA 


ICCOM,X 
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1530 
1540 
1556 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1858 



PLA 

JMP ciog 

;Put the TEMP location 

PUT_TEMP LDA TEMP 
JSR PUT_BYTE 
BMI P_RT5 
LDA TEMP+1 
JMP PUT-BYTE 

jMove FRO to TEMP 

M0UE_2 LDft FRO 

5Tfl TEMP 

LDft FR0+1 

STfl TEMP+1 
P_RT5 RT5 
J 
;Put the Header Out 

PUT_HEfll>ER LDft «4 
5TA BLL 

LDft no 

STft BLH 
STfl 5H 
LDft «S_SflyE 
STft SL 
S_SEG LDft ttll 
LDK ttSlO 
JMP CftLL_CIO 

TEMP .DS 2 



LISTING 8: ASSEMBLY 



0100 
Olio 


.OPT NO LIST 




0120 


DISK FORMftTTER 


0130 


External CoMnand tt4 


0140 




0150 


by: Bryan Schappel 


0160 




0170 


CP Call; 


0180 
0190 


FORMAT 




0200 




0210 


Equates 


0220 




0230 ( 


;L05E1 = SlEDD 


0240 ( 


:L0SE2 = $1EE1 


0250 ' 


JET_DEU - $1F95 


0260 ' 


;ET_0PH = S22C3 


0270 1 


■PRINT :: $1E61 


0280 ] 


[CCOM = S0342 


0290 ] 


[CBflL = $0344 


0300 ] 


[CBflH = 50345 


0310 ] 


[CELL = S0348 


0320 ] 


CCBLH = S0349 


0330 ( 


»UH1 - S034A 


0340 ( 


»UX2 - S034B 


0350 ( 


;iOU = SE456 


0350 1 


:0L = $9B 


0370 I 


)EUICE = S23B7 


0380 ] 


[OERROR = $1FA5 


0390 ( 


JRIGIN = $1D7C 


0400 i 


:PRDN = 51E76 


0410 i 


:RROR = SCB 


0420 1 


3ATCH = S2208 


130 1 


■IND_E = $20F7 


140 




0450 


PRINT nacro 


0460 




0470 


.MftCRO PRINT 


0480 


LDA « <y.L 


0490 


LDY tt >y.i 


0500 


JSR EPRINT 


OSIO 


.EHDM 


0520 , 




0530 


»= $2480 


0540 ; 




0550 '. 


>TftRT LDft DEUICE+1 


0560 


STA MY_DEy 


0570 


LDY »2 


0580 1 


>U LDft BATCH, Y 


0590 


STA HOLD,V 


0600 


LDA N0RM,Y 



0616 

0626 
0630 
0646 
0650 
0660 
0670 
0680 
0690 
0700 
0710 
0720 
0730 
0740 
0750 
0760 
0770 
0780 
0790 
0800 
0810 
0820 
0830 
0840 
0850 
0860 
0870 
0880 
0890 
0900 
0910 
0920 
0930 
0940 
0950 
0960 
0970 
0980 
0990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 



STA BATCH, V 
LDft FIKD_E,Y 
STft H0LD+3,Y 
LDft N0RM+3,Y 
STA FIND_E,Y 
DEY 

BPL SU 
BEGIN PRINT TITLE 
LDA MY-DEU 
STA FMAT+1 
STA DOSNAME+1 
STA AUTO+1 

M_LOOP JSR GET_KEY 

BMI M_LOOP 

STA OPTION 

SEC 

SBC tt'l 

BMI M_LDOP 

CMP «5 

BCS M_LOOP 

PHft 
PRINT OPTION 

STft ERROR 

PLft 

TAX 

BEQ OPTl 

DEK 

BEQ 0PT2 

DEK 

BEQ OPTS 

DEK 

BED 0PT4 

BNE- OPTS 
t 
JJUSt FOTMat Disk 

OPTl JSR FORMAT 
JMP BEGIN 

jJust Write DOS+BBKCP 

0PT2 JSR WRITE_DOS 
JMP BEGIN 

jFornat and Write DOS 

0PT3 JSR FORMAT 

LDft ERROR 

BNE G_B 

JSR WRITE_IT 
G_B JMP BEGIN 
i 

;Get new device nunber 

0PT4 PRINT NEW_DEU 
JSR GET_KEY 
ftND aS7F 
STA MY_DEU 
JMP BEGIN 

; Return to BBKCP 

0PT5 LDY tt2 

LD LDA H0LD,Y 

STA BATCH, Y 

LDA HQLD+3,Y 

STA FIND_E,Y 

DEY 

BPL LD 

RTS 

JFornat the Disk 



FORMAT 
BEQ 
INC 
RTS 

GO_F P 
JSR 
LDA 
STA 
LDft 
STA 
LDA 
STA 
STA 
LDA 
STA 
JSR 
BPL 



JSR PROMPT 
GO_F 
ERROR 

RINT F_MAT 
CL05E1 
» <FMAT 
ICBAL,K 
« >FMflT 
ICBftH,K 
»0 

ftUK2,X 
AUH1,X 
»254 
ICCOM,K 
CIOU 
G_BEGIN 
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1538 


OOPS TYft 


154Q 


PHA 




1550 


PRINT E0L2 


1560 


PLfl 




1570 


TflV 




1580 


J5R 


lOERROR 


1590 


INC 


ERROR 


1600 


PRINT H_KEY 


1610 


JMP 


KEY_RET 


1620 


G_BEGIN 


RTS 


1630 






1640 


'■Write DOS and BBKCP 


1650 






leeo 


WRITE-DOS J5R PROMPT 


1670 


BNE 


G_BEGIN 


1680 


WRITE TT PRINT W_DOS 


1690 


J5R 


SET_80 


1700 


LDA 


a <D05NAME 


1710 


5Tfl 


ICBftL.K 


1720 


LDA 


« >DOSNAME 


1730 


STft 


ICBAH,K 


1740 


J5R 


CIOU 


1750 


BMI 


OOPS 


1760 


i 




1770 


JSR 


SET_80 


1780 


LDA 


« <AUT0 


1790 


STfl 


ICBAL,K 


1800 


LDfl 


a >AUTO 


1818 


STfl 


ICBAH.K 


1820 


JSR 


CIOU 


1830 


BMI 


OOPS 


1840 


LDK 


aSio 


1850 


LDfl 


» <HEADER 


1860 


STft 


ICBAL.K 


1870 


LDA 


a >HEflDER 


1880 


STfl 


ICBflH,H 


1890 


LDfl 


a6 


1900 


STfl 


ICBLL,K 


1910 


LDfl 


ao 


1920 


STft 


ICBLH,K 


1930 


LDft 


ail 


1940 


STft 


ICC0M,K 


1950 


JSR 


cioy 


1960 


BMI 


OOPS 


1970 


LDK 


asio 


1980 


LDft 


a <0RIGIN 


1990 


STft 


ICBAL,K 


2000 


LDft 


a >ORIGIH 


2010 


STft 


ICBAH,K 


2020 


LDA 


a$39 


2030 


STft 


ICBLL,K 


2040 


LDft 


8506 


2050 


STft 


ICBLH,K 


2060 


LDfl 


ail 


2070 


STfl 


ICC0M,K 


2080 


JSR 


cioy 


2090 


BMI 


J_ERR 


2100 


LDK 


a5io 


2110 


LDft 


ail 


2120 


STfl 


ICCOMjK 


2130 


LDA 


a <END_DflTfl 


2140 


STA 


ICBflL.K 


2150 


LDft 


a >END_DflTA 


2160 


STft 


ICBAH,K 


2170 


LDA 


a <DATLEN 


2180 


STA 


ICBLL,K 


2190 


LDA 


a >DATLEN 


2280 


STA 


ICBLHjK 


2210 


JSR 


Cioy 


2220 


BPL 


J_CL 


2230 


J_ERR JMP OOPS 


2240 


J_CL JMP CLOSEl 


2250 






2260 


J Set up 


locB ai 


2270 






2280 


SET_80 . 


JSR CLOSE! 


2290 


JSR 


5ET_0PN 


2388 


LDA 


as 


2318 


STA 


flUKl.K 


2320 


LDft 


ao 


2330 


STA 


flUK2,K 


2340 


RTS 




2350 






2360 


jGet a 1 


<ey 


2378 






2388 


GET_KEY 


LDfl $E425 


2398 


PHA 




2408 


LDA 


SE424 


2418 


PHA 




2428 


RTS 




2438 


; 





2440 
2450 
2468 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2618 
2620 
2638 
2640 
2650 
2660 
2670 
2680 
2690 
2788 
2718 
2728 
2738 
2748 
2758 
2768 
2778 
2788 
2798 
2880 
2818 
2828 
2838 
2840 
2850 
2868 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2948 
2958 
2960 
2970 
2980 
2990 
3000 
3010 
3820 
3838 
3848 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3168 
3178 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3268 
3278 
3288 
3290 
3300 
3310 
3320 
3330 
3340 



jPronpt for a Disk 

PROMPT PRINT P_TKT 

KEY_RET JSR GET_KEY 

CMP aEOL 

RTS 

jProgrSM Data 



FMAT .BY 

AUTO .BY 

D05NAME 

TITLE .B 

.BYT 

.BYT 

MY_DEy . 

.BYT 

.BYT 

.BYT 

■ BYT 

.BYT 

.BYT 

.BYT 

,BYT 

.BYT 



TE "D 
TE "D :fl 
BYTE "D 
YTE S7D, 
E "UTILI 
E E0L,"D 
BYTE " : 

E "iiani 

"1. Fo 
"2. Wr 
"3. FO 
"Write 
"4, Ch 
EOL 

"5. Ex 
"OptiO 



,EOL 

UT0RUN.5V 
;D05.5Y5 
FORMflT " 

TY'SEOL 

euice D" 

■',EOL,EOL 

■",EOL 

PMat'S EOL 

ite DOS", 

mat and 
DOS", EOL 

ange Drive t) 

it", EOL, EOL 
n > ",0 



P_TKT .BYTE "Insert DISK, " 
H_KEY .BYTE "Press RETURN", 
F_MflT .BYTE EOL, EOL 

.BYTE "FoPMatting. . .",0 
W_DOS .BYTE EOL, EOL 

.BYTE "Writing DOS... ",8 
W_CP .BYTE EOL, EOL 

.BYTE "Writing BBKCP... ",0 
NEW_DEU .BYTE "New Drive 8 ",0 
OPTION .BYTE " " 
E0L2 .BYTE EOL, EOL, 
HEflDER .WORD SFFFF,$1D7C,S23C6 
NORM .BYTE $A0,S00,$fl9 

.BYTE SB9,Slfl,$03 
HOLD .WORD $00, £00,500 

JCP Run Stuff 

END_DATfl .HORD EPRDN 

.BYTE "DliflUTORUN.BftT" 

.BYTE EOL,0 

.WORD 5240ft 

.WORD 5248B 

LDK 80 

STK 523D9 

STH 508 

INK 

STK 509 

JSR 520C7 

LDfl 8553 /credits 

LDY 8524 

JSR EPRINT 

JSR CL05E2 

JSR 5ET_0PN 

JSR 5ET_DEy 

LDfl 84 

STft ftUKl,K 

JSR CIOU 

PHP 

JSR CL05E2 

PLP 

BPL Hfty_BflT 

LDA 586 

BNE G_CART 

JMP C5eA) 
G_CflRT JMP C5BFFflJ 
HAU-BftT LOfl 8551 ;pronpt 

LDY 8523 

JSR EPRINT 

LDfl 85Bfl ; fnane 

LDY 8523 

JSR EPRINT 

PLfl 

PLA 

JMP 5221C 

.BYTE S7D,E0L 

.BYTE "BBK CP - CC3 1987 " 
.BYTE "flNflLOG CoMRUt i ng", EOL 
.BYTE "by; Bryan Schappel" 
.BYTE EOL,0 
.WORD $82E8 
.WORD 502 
.WORD $2406 
DflTLEN - «-END_DflTA R 
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A 



STORE HOURS 
TUE- FRI 10am- 6pm 

SAT - 10am - 5pm 
CLOSED SUN- MON 



soo/ j^ z^/ :x: E S OF--rWy^.RE 

ALL TITLES ON DISK 



ENTERTAINMENT 

12 ADAMS ADVENTURES .. 14.95 

ALIANTS 26.95 

ALT. REALITY CITY 26.95 

ALT. REALITY DUNGEON. 2 5.95 

BEYOND CASTLE WOLF.... 14.95 

BISMARK 26.95 

BOP S WRESTLE (64K)... 26.95 

BORDINO:1812 26.95 

BOULDERDASH CONSTR.SET 17.95 

BRUCE LEE 17.95 

CASTLE WOLFENSTEIN. .. . 14.95 

DALLAS QUEST 7.35 

D-BUG 7.95 

F-15 STRIKE EAGLE .... 31.50 

FIGHT NIGHT 17.95 

GAUNTLET (64K) 31.50 

DEEPER DUNGEONS 22.50 

GUNSLINGER 26.95 

HARD HAT MAC 7.95 

JAWBREAKER 9.95 

KARATEKA 13.50 

KNICKERBOCKERS 13.50 

KORONIS RIFT 13.50 

LAST V-8 8.95 

LEADERBOARD 13.50 

MAIL ORDER MONSTERS .. 13.50 

MICROLEAGUE BASEBALL.. 35.95 

MONTEZUMA'S REVENGE... 14.95 

MOUSEQUEST 17.95 

MOON SHUTTLE 7.95 

NINJA 8.95 

OIL' S WELL 9.95 

O'RILEY'S MINE 9.95 

PIRATES OF BARB. COAST 22.50 

PREPPIE I S II 9.95 

RESCUE ON FRACTALAS... 13.50 

SILENT SERVICE 31.50 

SPEEDKING 8.95 

SPIDERMAN 7.95 

SPITFIRE 40 31.50 

STARFLEET I 44.95 

SPY VS. SPY III 17.95 

STOCKMARKET 22.50 

STRIP POKER 26.95 

SUMMER GAMES 17.95 

TAX DODGE 9.95 

THE HULK 7.95 

TOMAHAWK (64K) 2 6.95 

TOP GUNNER 17.95 

TOUCHDOWN FOOTBALL ... 13.50 

TRAILBLAZER 26.95 

UNIVERSE 44.95 

ZAXXON 13.50 

PROGRAMMING 

ACTION! 71.95 

ACTION! TOOLKIT 26.95 

BASIC XL 53.95 

BASIC XL TOOLKIT 26.95 

BASIC XE 71.95 

DISK I/O 26.95 

DRAPER PASCAL 44.95 

KYAN PASCAL 62.95 

LIGHTSPEED C 35.95 

LOGO 29.95 

MAC/65 71.95 

MAC/65 TOOLKIT 26.95 

MACROASSEMBLER 22.50 

PILOT 19.95 

SPARTA DOS X 71.95 

TOP DOS 1.5 PLUS 35.95 

PRODUCTIVITY 

ANIMATION STATION .... 89.95 

ATARIWRITER+ 39.95 

ATARI BOOKKEEPER 24.95 



ATARI MUSIC II 14.95 

AWARDWARE (1050) 13.50 

BANK STREET WRITER.... 14.95 

BLAZING PADDLES 31.50 

CELEBRITY COOKBOOK ... 26.95 

COMPUTE YOUR ROOTS ... 35.95 

DATAMANAGER 17.95 

FAMILY FINANCE 6.95 

GUITAR WIZARD 26.95 

HOME ACCOUNTANT 19.95 

HOME FILING MANAGER. . 6.95 

HOMEPAK 24.95 

INVENTORY MASTER 80.95 

LETTER WIZARD 29.95 

MUSIC CONSTRUCTION SET 13.50 

NEWSROOM (1050 - 64K). 13.50 

NEWS STATION 26.95 

NEWS STA. COMPANION. . 26.95 

PAGE DESIGNER 26.95 

PRINT POWER (1050).... 13.50 

PRINTKIT (1050) 13.50 

PRINTSHOP 34.95 

P.S. COMPANION (64K) .. 24.95 

P.S.GRAPHICS LIBRARY 1 17.95 

P.S.GRAPHICS LIBRARY 2 17.95 

P.S.GRAPHICS LIBRARY 3 17.95 

PROOF READER 17.95 

PUBLISHING PRO 35.95 

RUBBER STAMP 2 6.95 

SYNTREND 14.95 

SUPER MAILER 35.95 

THE LOTTO PROGRAM .... 17.95 

TIMEWISE 6.95 

TURBOWORD/80 COLUMN 

REQUIRES XEP80 44.95 

VIDEO TITLESHOP (64K). 26.95 

GRAPHICS COMPANION. 17.95 

VIRTUOSO 29.95 

VISICALC 24.95 

EDUCATION 

ATARI LIGHT MODULE 

(REQ.ATARILAB STARTER) 9.95 

BUZZWORD 35.95 

GRANDMA'S HOUSE (-10) 9.95 

HEY DIDDLE (AGE 3-10). 9.95 

MASTER TYPE 14.95 

PLANATARIUM 22.50 

STATES AND CAPITALS .. 9.95 

TOUCH TYPING 9.95 

CBS (AGE 3-6) : 

ASTROGROVER 8.95 

BIG BIRD SPEC DELIVE 8.95 

ERNIE'S MAGIC SHAPE. 8.95 
DESISNWARE: 

MATHMAZE (6-11) .... 35.95 
MISSION ALGEBRA (13+)35.95 

SPELLICOPTER (6-11). 35.95 
TINK TONK (AGE 4-6) : 

ABC S 8.95 

COUNT AND ADD 8.95 

SMART THINKER 8.95 

SPELLING 8.95 

SUBTRACTION 8.95 

THINKING SKILLS .... 8.95 

ALL 6 TINK TONKS.. 39.95 
nNicORH: 

10 LITTLE ROBOTS 

(PRE-SCHOOL) 26.95 

FUN BUNCH (6-ADULT) 26.95 
RACECAR RITHMETIC 

(AGE 6 + ) 26.95 

WEEKLY READER (PRE-SCHOOL) : 

STICKY BEAR SHAPES . 26.95 

STICKY BEAR NUMBERS. 26.95 

STICKY BEAR ABC'S .. 26.96 

STICKY BEAR OPPOSITE 26.95 



PENGO 


19 
19 


95 


POLE POSITION 


95 


POPEYE 


14 
14 
14 
19 


95 


Q-BERT 


9t 


QIX 


IS 


RESCUE ON FRACTALAS . 


95 


RETURN OF THE JEDI . . 


14 


95 


ROBOTRON:2084 


19 


95 


SKY WRITER 


14 


95 


SLIME (400/800) 


9 


95 


SPACE INVADERS 


14 


95 


STAR RAIDERS 


5 


00 


STAR RAIDERS II 


19 


95 


SUPER BREAKOUT 


9 


95 


TRACK & FIELD 


24 


95 


TURMOIL 


9 

5 


95 


WIZARD OF WOR 


00 


* REQUIRES LIGHT GUN 






PRODUCTIVITY 




ATARIWRITER 


. 19 
77 


95 


MICROFILER 


50 



>^^ SOO/ X E/ X E SCfF-r^W .^RE 

ALL TITLES ON CARTRIDGE 

ENTERTAINMENT 

ALIEN AMBUSH 9.95 

ACE OF ACES . (XL/XE) . 24.95 

ARCHON 19.95 

ASTEROIDS 15.95 

ATARI TENNIS 9.95 

BALL BLAZER 19.95 

BARNYARD BLASTER .... 24.95* 

BATTLEZONE 1_9.95 

BLUE MAX 19.95 

CAVERNS OF MARS 14.95 

CENTIPEDE 14.95 

CHICKEN 9.95 

CHOPLIFTER 14.95 

CLAIM JUMPER 9.95 

CLOUDBURST 9.95 

CRIME BUSTER (XL/XE) . 24.95* 

CROSSBOW 24.95* 

CROSSFIRE 9.95 

DAVIDS MIDNIGHT MAGIC 19.95 

DEFENDER 14.95 

DELUXE INVADERS 7.95 

DESERT FALCON 19.95 

DIG DUG 19.95 

DONKEY KONG 5.00 

DONKEY KONG JR 19.95 

EASTERN FRONT (1941). 19.95 

E.T. PHONE HOME 9.95 

FIGHT NIGHT 19.95 

FINAL LEGACY 19.95 

FOOD FIGHT (XL/XE)... 19.95 

FOOTBALL 14.95 

FROGGER 14.95 

GALAXIAN 19.95 

GATO 24.95 

GORF (400/800) 5.00 

GYRUSS 14.95 

HARDBALL 19.95 

INTO THE EAGLES NEST 19.95 
JOURNEY TO PLANETS .. 9.95 

JOUST 19.95 

JUNGLE HUNT 19.95 

KABOOM! 14.95 

LODE RUNNER 24.95 

MARIO BROS 19.95 

MILLIPEDE 19.95 

MISSILE COMMAND 5.00 

MOON PATROL 19.95 

MR. COOL 9.95 

MS. PAC MAN 19.95 

NECROMANCER 19.95 

ONE ON ONE (XL/XE)... 19.95 

PAC MAN 5.00 



EDUCATION 

ATARILAB STARTEER SET 29.95 

MATH ENCOUNTERS 9.95 

FISHER PRICE (PRE SCHOOL) : 

DANCE FANTASY 8.95 

LINKING LOGIC 8.95 

LSGIC LEVELS 8.95 

MEMORY MANOR 8.95 

SPINNAKER (AGE 3-10) : 
ALF IN COLOR CAVES . 9.95 

ALPHABET ZOO 9.95 

DELTA DRAWING 9.95 

FACEMAKER 9.95 

KIDS ON KEYS 9.95 

KINDERCOMP 9.95 

(AGE 7 - ADULT) : 

ADV. CREATOR (400/800) . 9 . 95 
FRACTION FEVER 9.95 

THE BASIC TUTOR 

Learn to program in BASIC 

Requires a 410 OR 1010 Program Recorder 

COMPLETE PACKAGE ONLY t9.95 

BOOKS ONLY 

DE RE ATARI 10.00 

LOGO 10. 00 

ATARIWRITER 10.00 

DOS 2.5 12.95 

BASIC REFERENCE 5.00 

BOOKKEEPER 10.00 



* 



RECONDITIONED ATARI MERCHANDISE 

30 DAY WARRANTY 



* 



800 (48K) 
COMPUTER 

$79.95 

400 (16K) 
COMPUTER 

$29.9S 



1020 COLOR 
PRINTER/ PLOTTER 

$19.95 



40 COLUMNS WIDE 

(NEW IN BOX) 



SPACE AGE 

JOYSTICK 

$5.00 

ATARI 
TRACKBALL 

$9.95 



ATARI 
BOOKKEEPER 
$14.95 - NO BOX 

ATARI 

NUMERIC 
KEYPAD $7.95 



1030 MODEM 
WITH EXPRESS! 

$24.95 

1010 PROGRAM 

RECORDER 
$29.95 



DISKETTES 
AS LOW AS 20 CENTS 

10 FOR $4.00 

100 FOR $29.95 

1000 FOR $200 

MOST ARE UNNOTCHED 

WITH OLD SOFTWARE 



SHIPPING INFORMATION- Prices do not include shipping and handling. Add $5.00 for small items ($8.00 Min. for Canada). Add $8.00 for disk 
drive. Add $2.75 for C.O.D. Calif, res. include 7% sales tax. Mastercard and Visa accepted if your telephone is listed in your local phone directory. 
Orders may be pre-paid with money order, cashier check, or personal check. Personal checks are held for three weeks before order is processed. 
C.O.D orders are shipped via UPS and must be paid with cash, cashier check or money order. International and APO orders must be pre-paid with 
cashier check or money order. $20.00 minimum on all orders. All sales are final - no refunds - prices are subject to change. 

Phone orders accepted TUESDAY THROUGH FRIDAY from 10:00 am to 6;00 pm PST. 

We carry a complete line of ATARI procducts and have a large public domain library. 
Write or call for free catalogue. (408) 749-1003 TUE - FRI 10AM - 6 PM 



PRICES SUBJECT TO CHANGE WITHOUT NOTICE - ALL SALES ARE FINAL 



CIRCLE #103 ON REAOER SERVICE CARD. 



BASIC 

Editor n 



bv Clavton Walnum 



BASIC Editor II is a utility to help you 
enter BASIC program listings pub- 
lished in ANALOG Computing. To 
simplify the identification of errors, 
each program line is evaluated im- 
mediately after it's typed, eliminating the 
need for cumbersome checksum listings. 
When you've finished entering a program us- 
ing BASIC Editor II, you can be certain it 
contains no typos. 

An option is provided for those who wish 
to use standard BASIC abbreviations. Also, 
the program retains all Atari editing features. 
Finally, for those who prefer to type programs 
the conventional way, using the built-in edi- 
tor, a post-processing mode is available. It al- 
lows you to check typing after the entire 
listing has been entered. 

Typing in the Editor 

To create your copy of BASIC Editor II, 
follow the instructions below— exactly. 

Disk version: 

(1) Type in Listing 1, then verify your work 
with Unicheck (see Issue 39). 

(2) Save the program to disk with the com- 
mand SAVE "D-.EDITORLl.BAS". 

(3) Clear the computer's memory with the 
command NEW. 

(4) Type in Listing 2, then verify your work 
with Unicheck. 

(5) Run the program (after saving a back- 
up copy) and follow all the on-screen 
prompts. A data file will be written to your 
disk. 

(6) Load Listing 1 with the command 
LOAD "EDITORLl.BAS". 

(7) Merge the file created by List- 
ing 2 with the command ENTER 
"D.ML.DAT". 

54 



(8) Save the resultant program with the com- 
mand LIST •'D:EDITORII.LST". 

Cassette version: 

(1) Type in Listing 1 and verify your work 
with Unicheck. 

(2) Save the program to cassette with the 
command CSAVE. (Do not rewind the 
cassette.) 

(3) Clear the computer's memory with the 
command NEW. 

(4) Type in Listing 2 and verify your work 
with Unicheck. 

(5) Run the program and follow the on- 
screen prompts. A data file will be written to 
your cassette. 

(6) Rewind the cassette. 

(7) Load Listing 1 with the command 
CLOAD. 

(8) Merge the file created by Listing 2 with 
the command ENTER "C:". 

(9) On a new cassette, save the resultant pro- 
gram with the command LIST "C:". 

Using the Editor 

Take a look at one of the BASIC program 
hstings m this issue. Notice that each program 
line is preceded by a two-letter code. This code 
is the checksum for that line; it's not a part 
of the program. 

To enter a program listing from the maga- 
zine, load BASIC Editor II with the ENTER 
command, and run it. You'll be asked if you 
wish to allow abbreviations (see your BASIC 
manual). If you do, type Y and press 
RETURN. Otherwise, type A^. 

Note: If you set BASIC Editor 11 to allow 
abbreviations, the program will run slightly 
slower. 

Your screen will now be divided into two 
"windows." The upper window will display 
each line after it's processed, as weU as the 



checksum generated for that line. The lower 
window is where program lines are typed and 
edited. 

When the program's waiting for input, the 
cursor will appear at the left margin of the typ- 
ing window. Type a program line and press 
RETURN. The line wUl be evaluated and 
reprinted in the message window, along with 
the checksum generated. 

If the checksum matches the one in the 
magazme, then go on to the next program line. 
Otherwise, enter the command E (edit) and 
press RETURN. The line you just typed will 
appear in the typing window, where you may 
edit it. When you think the line has been cor- 
rected, press RETURN, and it'll be 
reevaluated. 

Note: You may call up any line previously 
typed, with the command E followed by the 
number of the line you wish to edit. For ex- 
ample, E230 will print Line 230 in the typ- 
ing window. Do not attempt to edit any 
program lines numbered 32600 and higher. 
These lines fall within the BASIC Editor n 
program. 

If you're using BASIC abbreviations, the 
two versions of the command E work slightly 
differently. The command E, without a line 
number, will call up the line exactly as you 
typed it. When you append the line number, 
the line will be printed in its expanded (un- 
abbreviated) form. 

Leaving the Editor 

You may leave BASIC Editor n at any time, 
by entering either B (BASIC) or Q (quit). If 
you type B, the Editor will return you to BAS- 
IC. Enter LIST to review your work, if you 
wish. Note that lines 32600 and above are the 
Editor program. Your work wUl appear be- 
fore these lines. To return to the Editor, type 
GOTO 32600. 

Type Q, and you'll be asked if you really 
want to quit. If you type Y, the Editor pro- 
gram will be erased from memory, and you 
may then save your work in any manner you 
like. If you type A^, the Q command will be 
aborted. 

Large listings 

If the program you're entering is particu- 
larly long, you may need to take a break. 
When you want to stop, type Q and press 
RETURN, then save your work to disk or cas- 
sette. When you're ready to start again, load 
the program you were working on, then load 
BASIC Editor H with the ENTER command. 
Type GOTO 32600, and you're back in 
business. 

JUNE A.N.A.L.O.a. Computing 



The post-processor 

Many people may not want to use BASIC 
Editor II when entering a program listing, 
preferring, instead, the Atari's built-in editor. 
For that reason, BASIC Editor II will allow 
you to check and edit your programs after 
they've been typed. 

To take advantage of this option, type any 
magazine program in the conventional man- 
ner, then save a copy to disk or cassette (just 
in case). With your typed-in program still in 
memory, load BASIC Editor n with the 
ENTER command, then type GOTO 32600. 

Respond with A^ to the "abbreviations" 
prompt. When the Editor appears on your 
screen, enter the command P (post-process), 
and the first program line will appear in the 
typing window. Press RETURN to enter it into 
the Editor. 

The line will be processed, and the check- 
sum, along with the program Une, will be 
printed in the upper window. If the checksum 
matches the one in the magazine, press 
RETURN twice, and the next line will be 
processed. 

If you find you must edit a line, enter the 
command E, and the line will be moved back 
to the typing window for editing. 

When the entire listing has been checked, 
you'll be asked if you wish to quit. Type Y 
and press RETURN. The Editor program will 
be removed from memory, and you may then 
save the edited program in any manner you 
wish. 

Murphy ^s Law 

Anyone who's been associated with comput- 
ing knows this is the mdustry Murphy had in 
mind. You may find that, after typing a pro- 
gram with BASIC Editor II, it still won't run 
properly. There are two likely causes for this. 

First, it may be that you're not following the 
program's instructions properly. Always read 
the article accompanying a program before at- 
temptmg to run it. Failure to do so may present 
you with upsetting results. 

Finally, though you can trust BASIC Edi- 
tor II to catch your typos, it can't tell you if 
you've skipped some lines entirely. If your 
program won't run, make sure you've typed 
all of it. Missing program lines are guaran- 
teed trouble. 

One last word: Some people find it an un- 
necessary and nasty chore to type REM lines. 
I don't condone the omission of these lines, 
since they may be referenced within the pro- 
gram (a bad practice, but not unheard of). If 
you want to take chances, BASIC Editor n is 
willing to comply. 



When you've finished entering a 

program using BASIC Editor //, you 

can be certain it contains no typos. 



Listing 1. 
BASIC listing. 



3260B IF FL THEM 3Z616 

32602 DIM LStHSl.SVSdlS) ,C2S[2),B$tl 

15) ,MSfll9) ,5$(S8) ,ES(69) ,0$ tl) !FL=1:S 

THT0B=PEEKC136)+PEEKtl37)»255 

32604 GdUPKICS B ! POKE 710 , ; P=e ; OBR=0 : 

? "OLLOW dBBREUIdTIOHS"; IIHPUT (SilF ft 

S="V" OR OS="y" THEN ftBR=l 

32606 BS(1)=" ";BSC115)= BSC2)=BS 

32616 OPEN IJ17,4,8,"E!"!L$ = GOSUB 3 

2662!5TflRT = 

32618 POKE 766,1:P0KE 63, 39 ! POSITION 1 

,3;IF LEHCL$)<39 THEH ? LSiGOTO 32624 

32620 IF LEHCL$)<77 THEN ? L$tl,38)!? 

LSC39,LEN(L$)) IGOTO 12624 

32622 ? L$(l,38)i? L$t39,76)l? L$t77,L 

EN(LS)) 

32624 POKE 752,0;P0KE 766,B!P0KE 559,3 

4;P0KE 82,liP0KE 83 , 38 ; POSITION 0,10!? 

" ";!IHPUT tll7;LS:P0KE 766,1 
32626 IF (LS="P" OR LS="p"> OND 5TaRT= 
THEH P=l!LS="" 

32628 IF LS="E" OR L$="e" THEN E=llP05 
ITIOH 1,10;? SUS GOTO 32624 
32630 IF LS="n" UR LS="q" THEN 32698 
32632 IF L$="" «KD P=l THEM 32686 
32634 IF L5="" THEN 32624 
32636 IF LS="B" OR L$="b" THEM GRAPHIC 
5 O;? "TVPE 'GOTO 32600' TO CONTINUE"! 
END 

32638 IF L$tl,l)="E" OR L$(l,l)=:"e" TH 
EH E=llTROP 32624:EL=U0LCL$C2)) !POSITI 
ON 1,9!LI5T ELiGOTO 32624 
3264B SUS=LSiTROP 32624 ! X=VAL CLSJ 
32642 5T0RT=1!IF P AMD MOT E THEH 326 
52 
32644 GOSUB 32674!IF NOT ABR OR P THE 

32646 POKE 766,0!? CHRS tl25) ! POSITION 
0,3!L=UAL(LS) !LIST L!? I? !? "CONT"!!* 
-BS 

32648 POSITION 0,0!POKE 842,13!5T0P 
32650 POKE 842, 12 I A = U5R (ADR eSS) , AOR (LS 
1,4) !L|=LSC1,A) 

32652 CHK5UM=U5RtADRtMS) ,ADRfLS) ,LEN(L 
S)) !CHK5UM=CHK5UMtPEEKC1542)»6SS36 
32654 CHK = CHKSUM-tIMT(CHKSUH/'676)»676) 
:HI = INT(CHK/26) ! LOzCHK- tHH(26 J !CZSC1J = 
CHR$(HI+65) lC2SC2>=CHR$CL0t65> 
32656 IF MOT P OR E THEM E=e!G05UB 32 
662!IF MOT P THEM 3266B 

326SB POKE 63,39!P0KE 752,llF0R X = 3 TO 
SiPOSITIOM 1,M!? BStl,3B) IP05ITI0N 1, 
Kt7!? BS(1,38) iHEKT K!POKE 83,38 
32668 POKE 766,1!P0KE 83, 38 1 POSITION 6 
,7!? C2S!P0KE 752,O!G0T0 32618 
32662 GOSUB 32702!P0KE 766,0!P0KE 752, 
1!' "IS"!P0KE 82,l!DL = PEEK(S60Jt256)(PEE 
K(561)»4 

32664 POKE DL-1,70!P0KE DL+2,6!P0KE DL 
t3,112!P0KE DL+4,112|P0KE DLt5,112IP0K 
E 0L+13,112!P0KE DL+14,112 
32666 POKE DLt22, 112 ! POKE DLt2J,112!P0 
KE DLt24,65!P0KE DLt25, PEEK t560) ! POKE 
DLt26,PEEK(561) !POKE 83 ,39 
32668 POSITION 20,0!? ' 
tPOSITION 0, 




!P0SITI0M 1,7 

32672 POKE'559,34 ! RETURN 

32674 GRAPHICS 0!POKE 559,0!P0KE 766,1 

IPOKE 82,0!P0KE 83 , 39 ! POSITION 0,3!? L 

$!? !? !? !? "COMT"!POSITION 8,8 

32676 POKE 842,13!5T0P 

32678 POKE 842,12!TRAP 32682 ! A-USR (ADR 

(ES) ,UAL{LS)) IIF A=4 THEH POP !GOTO 32 

32680 RETURN 

32682 GOSUB 32662!S0UMD 8, 7S, 10, 8 ! FOR 

K=l TO 20!MEKT HiSOUND 8 , 8, 8, 8 ! POSITIO 

M 1,3!? "SVMTAX ERROR!"!POKE 766,1 

32684 POKE 83, 38 ! POSITION 1,18!? SUSlG 

OTO 32624 

32686 LIMErPEEK (5THTAB) «PEEK (STMTAB+IJ 

»2S6!IF LINE>32599 THEN 32698 

32688 0FS=PEEK(5TMTABt2) ! STMTAB=STMTAB 

iOFSiPOSITION 1,9!LI5T LIME!G0T0 32624 

32690 POKE 765, 8 ! POSITION 1,181? "READ 

Y TO QUIT"!!IHPUT A$ I IF AS<>'.'Y" THEN P 

05ITI0N 1,10!? B$(1,3B) !GOTO 32624 

32692 GRAPHICS 8!? !? !? !FOR )<-32e88 

TO 32636 STEP Zi? K!HEXT K!? "C0NT"!PI1 

5ITI0M e,B:POKE 842,13!ST0P 

32694 POKE 842, 12 ! GRAPHICS 8!? I? 1? 1 

FOR X = 3263B TO 32674 STEP 217 X I NEXT X 

!? !? "C0HT"lP05ITI0H 8,8 

32696 POKE 842,13!5T0P 

32698 POKE 842, 12 ! GRAPHICS 81? IT IT I 

FOR X=3267B TO 32782 STEP 2!? XiNEXT X 

1? !? "POKE 842,12"|P0SITI0N 8,8 



32708 POKE B42,13:STBP 

32782 PSKE ie,112!P0KE 53774, 112 ! RETUR 

N 



CHECKSUM DATA. 

(see issue 39's Unicheck) 



32680 DATA 6,665,923,757,809,171,225,8 
98,532,499,918,267,912,144,735,8453 
32638 DATA 97,358,230,693,706,878,317, 
127,36,597,238,258,182,438,168,5315 
32668 DATA 864,953,472,385,887,724,72, 
687,988,736,625,612,672,184,891,9672 
32698 DATA 8,856,85,949 



Listing 2. 
BASIC listing. 



10 DIM LS(1201 ,MLS(119),A$(1) 
28 GRAPHICS BIPOKE 710,0!? "QlSK OR 0A 
SSETTE"; lINPUT AS!IF A5<>"C" AMD A$<>" 
D" THEN 20 

30 IF A$=:"C" THEN 50 

48 ? "PLACE FORMATTED DISK IN DRIUE"!? 
"THEM PRESS RETURM"!IMPUT LSlOPEM til, 
8,0,"D1ML.DAV"!GOTO 60 

50 ? !? "READY CASSETTE, PRESS RETURN" 
;!IKPUT LS!OPEM ttl,B,0,"C!" 
68 LS="32608 MS tl) =" 1 LS (13) =CHR$ (34) 
70 M=119!G0SUB 138 ! L$ (14) =ML$ (1, 58) ! L$ 
(LEN(L$)+1)=CHRS(34) !? tll;LS 
80 LS(1)="32610 M$(59)="!L$(14)=CHRS(3 
4) ! LS (15) =MLS (59) ! L$ (LEN (LS) +1) =CHR$ (3 
4) !? m;LS 

90 L$(l)="32612 SS="!L${10)=CHR$(34) 
100 MLS=""!N=9B!G05UB 130 ! LS (11) =MLS ! L 
S(LEM(LS)tl)=CHRS(34) !? m!L$ 
110 LS(1)="32614 ES="!LS(10)=CHRS(34) 

120 MLS= M=69!G0SUB 138 ! LS (11) =MLS ! L 

S(LEN(LS)tl)=CHRS(34) !? Bl!LS!EMD 

138 FOR X = l TO N!READ A I MLS (X) ZCHRS (A) 

!HEXT X!RETURN 

140 DATA 104,104,133,204,184,133,203,1 

04,104,133,205,169,8,141,3,6,141,2,6,1 

41,4,6,141,5,6 

ISO DATA 141,6,6,238,3,6,32,68,218,172 

,2,6,177,283,133,212,32,178,217,32,182 

,221,32,68,218 

168 DATA 173,3,6,133,212,32,178,217,32 

,219,218,32,218,217,165,212,141,8,6,16 

5,213,141,1,6,24 

178 DATA 173,0,6,109,4,6,141,4,6,173,1 

,6,109,5,6,141,5,6,144,3,238,6,6,238,2 

160 DATA 6,172,2,6,196,205,208,176,173 

,4,5,133,212,173,5,6,133,213,96 

190 DATA 104,104,133,204,184,133,283,1 

04,184,141,255,6,169,8,133,213,216,165 

,88,133,205,165,89,133,206 

200 DATA 174,255,6,24,165,205,185,48,1 

33,205,144,2,230,206,202,288,242,160,8 

,177,205,201,64,144,18 

210 DATA 201,96,144,19,201,128,144,18, 

201,192,144,6,201,224,144,7,176,8,24,1 

05,32,144,3,56,233 

228 DATA 84,145,283,288,192,114,248,2, 

288,215,177,283,201,32,288,3,136,288,2 

47,200,132,212,96 

238 DATA 104,104,141,254,6,184,141,253 

,6,169,8,133,213,216,165,136,133,205,1 

65,137,133,206,160,8,177 

240 DATA 205,285,253,6,286,8,280,177,2 

05,285,254,6,248,15,160,2,177,205,24,1 

01,205,133,205,144,228 

250 DATA 230,206,176,224,168,4,177,285 

,201,55,248,4,168,8,248,8,132,212,96 



CHECKSUM DATA. 

(see issue 39's Unicheck] 



18 DATA 283,265,465,844,294,973,652,27 
0,978,797,278,275,835,289,301,7639 
38 DATA 355,94,254,428,935,848,588,41 f- 
,974,564,5435 M 
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continued from page 35 



• • 



Si s 
Sw s 



1858 




.BVTE 


8 


1860 


M44 


• BYTE 


"Your Hission was sue" 


1870 




.BYTE 


"cessful. ",0 


1888 


M45 


.BYTE 


"Water floods the com" 


1898 




.BYTE 


"partMent. ",8 


1988 


M46 


.BYTE 


"You drown in the nur" 


1918 




.BYTE 


"ky waters. .blub. . ",8 


1928 


M47 


.BYTE 


"Secret Agent: Missi" 


1938 




.BYTE 


"on 1 ",0 


1940 


M48 


.BYTE 


" to 1988 by Barry" 


1958 




.BYTE 


" Kolbe ",0 


1968 


M49 


.BYTE 


"Press START to try " 


1970 




.BYTE 


"again. ",0 


1988 


M58 


.BYTE 


"Shoot at what? ",0 


1998 


M51 


.BYTE 


"There's no rooh. ",0 


2888 


M52 


.BYTE 


"The escaping viurs a" 


2010 




.BYTE 


"ttacks your body. ",8 


2828 


M53 


.BYTE 


"A steel door blocks " 


2038 




.BYTE 


"the east door. ",o 


2040 


MS 4 


.BYTE 


"It has a gravity con" 


2050 




.BYTE 


"trolled switch. ",0 


2060 


; 






2070 


;They Gotcha! 


2088 


J 






2090 


DEftDTflB .WORD M34 ;robOt 


2100 




.MORD 


M36 jape 


2110 




.NORD 


M38 ; floor 


2120 




.MORD 


M39 J gas 


2130 




.WORD 


M40 ; x-ray 


2140 




.WORD 


M43 ; lasers 


2150 




.WORD 


M46 ; flood 


2160 




.WORD 


M52 jdrop uial 


2170 


\ 






2180 


jDescript 


lOns of Rooms 


2190 


; 






2200 


DO 


.BYTE 


"The entrance to the " 


2210 




.BYTE 


"Hanover-Tyler resea" 


2220 




.BYTE 


"rch facility lies to" 


2230 




.BYTE 


" the west. ",0 


2240 


Dl 


.BYTE 


"A desk is in the CO" 


2250 




.BYTE 


"rner of the rooM. " 


2260 




.BYTE 


8 


2270 


D3 


.BYTE 


"There is an oual ta" 


2280 




.BYTE 


"ble with chairs. ",8 


2290 


D4 


.BYTE 


"A food cabinet is " 


2300 




.BYTE 


"on the east wall. ",o 


2318 


D5 


.BYTE 


"Hanging on the wall" 


2320 




.BYTE 


" is a Metal cabinet " 


2330 




.BYTE 


"with a slot. ",0 


2340 


D7 


.BYTE 


"Red and blue button" 


2350 




.BYTE 


"s Are near the door" 


2368 




.BYTE 


". ",0 


2370 


D8 


.BYTE 


"Shelves Make up the" 


2380 




.BYTE 


" south wall. ",o 


2390 


D9 


.BYTE 


"An albino ape is in " 


2400 




.BYTE 


"a cage. ",0 


2410 


DC 


.BYTE 


"There are tables, " 


2420 




.BYTE 


"chairs, and a wend" 


2430 




.BYTE 


"ing Machine. ",0 


2440 


DD 


.BYTE 


"A decorative plant" 


2450 




.BYTE 


" sits in the corne" 


2460 




.BYTE 


"r. ",0 


2470 


DE 


.BYTE 


"There is a knob on" 


2480 




.BYTE 


" the wall . ",8 


2490 


DF 


.BYTE 


"A scenic picutre h" 


2500 




.BYTE 


"angs on the east wa" 


2510 




.BYTE 


"11 and a table lies" 


2520 




.BYTE 


" to the west. ",e 


2530 


D18 


.BYTE 


"CheMicals lie on " 


2540 




.BYTE 


"the tables. There's" 


2550 




.BYTE 


" a switch by the do" 


2560 




.BYTE 


"or. ",8 


2570 


Dll 


.BYTE 


"Looks dangerous i" 


2580 




.BYTE 


"n here. ",8 


2590 


D12 


.BYTE 


"There is a hole " 


2600 




.BYTE 


"near the west door" 


2610 




.BYTE 


". ",8 


2820 


D13 


.BYTE 


"There is a coat ha" 


2630 




.BYTE 


"nging on a hook. ",8 


2640 


D14 


.BYTE 


"There is an ATARI " 


2650 




.BYTE 


"138KE coMputer, driv" 


2660 




.BYTE 


"e and printer here." 


2670 




.BYTE 


" ",0 


2680 


D15 


.BYTE 


"A photo-enlarger r" 


2690 




.BYTE 


"ests on a lab table" 


2700 




.BYTE 


". ",0 


2710 


D17 


.BYTE 


"A door in the east" 


2720 




.BYTE 


" wall. ",0 


2730 


D19 


.BYTE 


"The furniture cons" 


2740 




.BYTE 


"ists of a desk and a" 


2758 




.BYTE 


" cabinet. ",0 


2760 


DIA 


.BYTE 


"A robot guards the" 


2770 




.BYTE 


" exits. ",8 


2788 


DIB 


.BYTE 


"A 36 inch high cab" 



2790 
2800 
2810 
2828 
2830 
2848 
2850 
2860 
2870 
28S0 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 



.BYTE "inet is in the cor" 

.BYTE "ner. ",0 

Die .BYTE "Lots of resisters" 

.BYTE " and chips Clutter " 

.BYTE "the tables. ",0 

DID .BYTE "There is a blue bu" 

.BYTE "tton by the door. " 

.BYTE 



;The 
; des 
; and 

DIF 

D20 

D5AF 

;No 
DFAK 



se replace the regular 
criptions when the 'ape' 
'robot' are eliMinated 

.BYTE "A Mangled robot 1' 
.BYTE "ies on the floor. 
.BYTE "A dead 



',0 



ape lies " 
BYTE "on the floor. ",0 
.BYTE "There is a safe her" 



.BYTE 



',0 



description on soMe rooMS 
E .BYTE $FF 



mi\m 7: ASSEMBLE 



eieo 

0110 

0120 

0130 

0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0380 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
Q398 
8400 
8410 
0420 
0430 
0448 
0450 
8468 
0470 
0480 
0490 
0508 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0580 
0590 
0600 
8618 
0620 
0630 
0640 
0650 
0668 
0670 
0680 
0690 
0700 
0710 
0720 
0730 
0740 



SAUEttDlCodeit.ASM 



Text data coMpressor ; 

tc]1988 by Barry Kolbe ; 

Original idea by: ; 

Bryan Schappel ; 



Takes text and coMpresses it 
by first coding it into nuMbers 
between and 31. The every 8 
bytes are coMpressed into 5. 



.OPT NO LIST, OBJ 

converversions : 'ASCII '=codeB 

0=0 1-26 =a-z 
stop =27 as long as the second 

set has less than 28 

entries 
codes: .=28 spc=29 caps=30 

flag=31 Cuses 2nd setJ 

second set of codes 

flags: '=0 ?=1 !=2 ,=3 -=4 
;=5 /=6 (=7 3=8 
0-9 = 9<->18 

text Must end with Sff 



*- SCB 
F .D5 2 
T .D5 2 



IBUF = 
OBUF = 
DBUF = 
CBUF = 
UBUF = 
OTMP = 
CTMP = 



57000 
$6000 
S7300 
$8000 
$5FO0 
S5F0O 
S5F20 

$4800 



J f roM 
;to 

{initial Msg 
jcoded Msg 
{decoded Msg 
iCMpressed 
;un-co«p 
; CMpress 
{buffers 



BEGIN LDA « <IBUF jset pointers 

STA F 

LDA a >IBUF 

STA F+1 

LDA tt <OBUF 

STA T 

LDA tt >OBUF 

STA T+1 
CODE LDY ao 

LDA tFJ,Y 

BEQ CODY 

CMP «$FF 

BNE CODD 

LDA a27 

STA {T3,Y 



;get a byte 

{handle 8 

{end? 

{no 

{set end flag 
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0750 


^ 


JSR C0MPR5 


;cohpress it 




™ 


^ 






^™ 


™ 






0760 




BRK 


;done phasel 


1730 


SPEC SEC 


;over so -28 


2700 




STA tT),V 


;to contiguous 


8770 


/ 






1740 




SBC 


«28 




2718 




INY 


joutput henory 


0780 




JSR UHCOMP 


; unconpress 


1750 




TAX 






2728 




CPY as 


; where it 


0790 




JSR DECODE 


; decode Msg 


1768 




LDA 


ENTBl, X 


;get ASCII 


2730 




BNE C5 


;can be BSAVEd 


0800 




BRK 




1770 




JMP 


DCC 




2740 




LDA T 


;add 5 to 


0810 


i 






1780 


J lower 


case 




2750 




CLC 


; ' TO ' indirect 


0820 


CODD CMP «S61 


; lower case? 


1798 


' 








2760 




ADC as 




0830 




BC5 LOWCASE 




1800 


LOOM CLC 


;add proper 


2770 




STA T 




0840 




CMP «S41 


; upper case? 


1810 




ADC 


»$60 


;anount 


2780 




LDA T+1 




0850 




BC5 UPCflSE 




1828 


DCC 


STA 


tT),Y 




2790 




ADC ao 




0860 




LDX «1 


;get char 


1839 




JSR 


DBUMB 


J double buMp 


2800 




STA T+1 




0870 


EEl 


CMP ENTBl, X 




1840 




JMP 


DCODE 


;More 


2810 




LDA F 


;add 8 to "FROM" 


6880 




BEt) DOl 




1850 


/ 








Zdzo 




CLC 


; indirect 


0890 




DEK 




1860 


CflP5 JSR BMF 


;bunp froM 


2830 




ADC as 




0900 




BPL EEl 




1870 




LDA 


(F3 ,Y 


;get code 


2840 




STA F 




0910 




LDX «18 


;try 2nd set 


1888 




CLC 




;add aMount 


2850 




LDA F+1 




0920 


EE2 


CMP ENTB2,X 




1890 




ADC 


«$40 




2860 




ADC ao 




0930 




BEQ D02 




1900 




BNE 


DCC 


; decode 


2870 




STA F+1 




0940 




DEX 




1910 


; 








2880 




LDA EFLAG 


;end yet? 


0950 




BPL EE2 




1920 


BIG 


JSR 


BMF 


;bUHp fron 


2890 




BEQ GETS 


;no 


0960 




SEC 


J error! 


1930 




LDA 


tF),V 




2900 




RTS 


;quit 


0970 




BRK 




1948 




TAX 




;get second 


2910 


EFLAG .DS 1 




0980 


; 






1950 




LDA 


ENTB2,X 


;decode byte 


2920 








0990 


D02 


LDft t»31 


;set 2nd flag 


1960 




JMP 


DCC 




2930 


^Unconpress data:get 5 bytes 


1000 




STft {T),Y 




1970 


/ 








2940 


;and expand then to 8 bytes 


1010 




JSR BUMPT 


;next position 


1989 


STOP CLC 


;all done 


2950 








1020 




TXft 


JX to A 


1990 




LDA 


«$FF 


jshow end of 


2960 


UNCOMP LDA a <CBUF Jset pointrs 


1030 




JMP CODY 


jput in code 


2000 




STA 


CTJ,Y 


;text 


2970 




STA F 




1040 


i 






2010 




RTS 






2980 




LDA a >CBUF 




1050 


DOl 


TXft 


;in 1st set 


2020 


/ 








2990 




STA F+1 




1060 




CLC 


;add 28 to -X" 


2030 


BMF 


INC 


F 


;bunp f by 1 


3800 




LDA a <UBUF 




1070 




ADC ttZ8 




2040 




BNE 


BMl 




3010 




STA T 




1080 




BNE CODY 




2050 




INC 


F + 1 




3020 




LDA a >UBUF 




1090 








2069 


BMl 


RTS 






3030 




STA T+1 




1100 


;tables of characters 


2070 


J 








3040 




LDY a7 


jclear out 


1110 


;K 


used as index 


2080 


BMD 


INC 


T 


;buMp t by 1 


3050 




LDA ao 


joutput buffer 


1120 








2090 




BNE 


BM2 




3060 


Ul 


STA 0TMP,Y 




1130 


ENTBl .BYTE ". " 


2189 




INC 


T + 1 




3070 




DEY 




1140 


ENTB2 .BYTE "'? 


,-:/£)" 


2110 


BM2 


RTS 






3080 




BPL Ul 




1150 




.BYTE "0123456789" 


2120 


/ 








3090 


; 






1160 


r 






2130 


DBUMB JSR BMF 


;bUMp both f 


3100 


GET5 LDY a4 


;get 5 bytes 


1170 


LOWCftSE SEC 


jwake 1-26 


2140 




JSR 


BMD 


;and t 


3110 


GG 


LDA (F),Y 




1180 




SBC ttS60 




2150 




RTS 






3120 




STA CTMP,Y 




1190 


CODY 5Tfl tT),Y 


;save 


2169 










3130 




DEY 




1200 




JSR BUMBOTH 


; increase 


2179 


jCoHpress Text: 8 


bytes to 5 


3140 




BPL GG 




1210 




JMP CODE 


;both indirects 


2180 










3150 


J 






1220 


/ 






2190 


COMPRS LDA « <OBUF ;set pointrs 


3160 




LDX a7 


; expand 5 to 8 


1230 


UPC6SE PHA 


;save it 


2200 




STA 


F 




3170 




LDA »0 




1240 




LDfl 830 


;set caps flag 


2210 




LDA 


a >OBUF 




3180 


U4 


LDY ae 




1Z50 




STA «T),Y 




2220 




STA 


F + 1 




3190 


U2 


ROR CTMP 


;slide then 


1260 




JSR BUMPT 


;up pointer 


2239 




LDA 


a <CBUF 




3200 




ROR CTMP+1 


;to the right 


1270 




PLA 


;get char 


2249 




STA 


T 




3210 




ROR CTMP+2 




1280 




SEC 




2250 




LDA 


a >CBUF 




3220 




ROR CTMP+3 




1290 




SBC n$40 


;l-26 


2269 




STA 


T + 1 




3230 




ROR CTMP+4 




1300 




STA CT3,Y 




2279 










3240 




ROR A 


;a has top 


1310 




JSR BUMBOTH 


jbuHp ptrs 


2289 


;get 8 bytes 




3250 




DEY 


;S bits 


1320 




JMP CODE 


; again 


2290 










3260 




CPY ai 




1330 


J 






2300 


GETS LDA »0 


;set end of tex 


3270 




CLC 




1340 


BUMPF INC F 


;buMp ptr f 


2310 




STA 


EFLAG 


J flag 


3280 




BNE U2 




1350 




BNE NOF 




2329 




LDY 


ao 




3290 




ROR A 


; slide 'en to 


1360 




INC F+1 




2339 


C3 


LDA 


tF3 ,Y 




3300 




ROR A 


; lower S bits 


1370 


NOF 


RTS 




2349 




CMP 


a27 


;end? 


3310 




ROR A 




1380 


J 






2350 




BNE 


C9 




3320 




STA 0TMP,X 


jsave in the 


1390 


BUMPT INC T 


;buMp ptr t 


2360 




INC 


EFLAG 


;yes 


3330 




DEX 


; buffer 


1400 




BNE NOT 




2370 


C9 


STA 


CTMP.Y 


; store bytes 


3340 




BPL U4 




1410 




INC T+1 




2380 




INY 






3350 








1420 


NOT 


RTS 




2390 




CPY 


as 




3360 


; Check if done 




1430 


i 






2400 




BNE 


C3 




3370 








1440 


BUMBOTH JSR BUMPF 


2410 










3380 




LDY a7 


jnoue to 


1450 




JSR BUMPT 




2420 


;coMpress itiall 


bytes are in 


3390 


MM2 


LDA OTMP,Y 


jcontiguous 


1460 




RTS 




2439 


;the lower 5 bits-roll thew 


3400 




STA CT),Y 


;nenory 


1470 








2446 


; to 


the 


top 5 bi 


ts and then 


3410 




DEY 




1480 


;the decode section 


2459 


;roll then into 


a 5 byte 


3420 




BPL MM2 




1490 








2466 


; ou 


tput 


buffer. 




3430 




LDY a7 




1500 


DECODE LDfl Jt <UBUF jset pntrs 


2476 










3440 


CK 


LDA OTMP,Y 




1510 




STA F 




2480 




LDY 


ao 




3450 




CMP a27 


;at end? 


1520 




LDA « >UBUF 




2496 


CI 


LDA 


CTMP,Y 


;get a byte 


3460 




BEQ DONE 


jyup 


1530 




STA F+1 




2500 




ASL 


A 


;shift up 


3470 




DEY 




1540 




LDA tt <DBUF 




2516 




A5L 


A 




3480 




BPL CK 




1550 




STA T 




2526 




ASL 


A 


;to hi 5 bits 


3490 








1560 




LDA « >DBUF 




2530 




LDX 


ae 


;shift 5 bits 


3500 




LDA F 


;add 5 to 'FROM' 


1570 




STA T+1 




2546 


C2 


ASL 


A 


; into output 


3510 




CLC 


; pointer 


1580 


DCODE LDY «0 


;get a byte 


2550 




ROL 


OTMP+4 


; buffer 


3520 




ADC as 




1590 




LDA {FJ,Y 




2566 




ROL 


OTMP+3 




3530 




STA F 




1600 




BEQ DCC 


J zero? 


2570 




ROL 


OTMP+2 




3540 




LDA F+1 




1610 




CMP a3i 


jsecond set? 


2580 




ROL 


OtMP+1 




3550 




ADC ao 




1620 




BEt) BIG 


;yes 


2590 




ROL 


OTMP 




3560 




STA F+1 




1530 


;less than 31 




2600 




DEX 






3570 




LDA T 


;add 8 to 'TO' 


1640 




CMP «30 


^capitals? 


2610 




CPX 


ai 


;done 5 yet? 


3580 




CLC 


; pointer 


1650 




BEQ CAPS 




2620 




CLC 






3590 




ADC as 




1660 




CMP M27 


;end of text? 


2630 




BNE 


C2 




3800 




STA T 




1670 




BNE UNO 




2640 




INY 






3610 




LDA T+1 




1680 




LDA a$FF 


;set flag 


2650 




CPY 


as 


J done 8 bytes? 


3620 




ADC ao 




1690 




STA tT3,Y 




2660 




BNE 


CI 




3630 




STA T+1 




1700 




RTS 




2670 


i 








3640 




JMP GETS 


;get sone nore 


1710 


1 






2680 




LDY 


ao 


;now nove the 


3650 






jdone ri 


1720 


UNO 


BCC LOOM 


;less than 27 


2690 


C5 


LDA 


OTMP,Y 


;5 bytes out 


3660 DONE RTS 



JUNE A.N.A.L.O.Q. Computing 




bv Arthur Levenberger 



I have just returned from my monthly 
Atari Users' Group Meeting. Every 
month I am amazed that more Atari 8-bit 
owners don't take advantage of these 
groups, which are a valuable source of 
information about Atari computers and how 
to use them. Where else can you find people 
who can answer both the common and eso- 
teric questions that constantly seem to arise? 
I met a couple of new 8-bit users this 
month, and it brought back memories of 
when I first started out. One guy, a man in 
his late twenties or early thirties, asked me 
what a modem was. When I explained that 
it was simply a device that allowed two com- 
puters to "talk" to each other via a telephone 
line, I could see his eyes light up as he un- 
derstood the concept and started thinking 
about what he might use one for. 

Like the majority of other group members, 
I am always happy to share whatever infor- 
mation I have if it might help someone else 
get started with their computer. I remember 
when I first began using an Atari 800. I had 
sa 



what seemed like a million questions and, 
thanks to the other club members, was able 
to learn about the computer and how to use 
it. That's what users' groups are all about. 

After this fellow asked me about modems, 
he then wanted to know how to actually con- 
nect one to his computer. I told him about 
serial ports (for modems) and parallel ports 
(for printers) and the various options he had. 
At first the discussion of the Atari 850 Inter- 
face, ICD's P:R: Connection and other 
products seemed to overwhelm him. But af- 
ter asking a few more questions he under- 
stood what the options were, what might be 
best for him and where he could buy what 
he wanted. He was glad to have learned 
something new, and I was glad to have helped 
him. 

Not only do users' groups provide a source 
of valuable informadon, they also help in 
other ways. Most users' groups have a disk 
library of public domain files that can be had 
usually for the price of the disk. There are 
hundreds of useful public domain programs 



available that perform just about every fxinc- 
tion. There are simple word processors, 
spreadsheets, file utilities, file format-conver- 
sion programs and much, much more. In ad- 
dition, most clubs have hundreds of picture 
files, font files and other types of files that 
can be used with commercial programs. 

Many users' groups also publish a news- 
letter. As a member of the club, you are en- 
dtled to receive the newsletter which usually 
contains software and hardware reviews, 
Uitorial articles, programs and advertisements 
by local Atari retailers. It too is a wealth of 
information. 

Users' group meetings also typically have 
demonstrations of new software and equip- 
ment. Some groups even have guest speak- 
ers from Atari or various software companies 
who will demonstrate their products and an- 
swer questions. Finally, a users' group can 
have social benefits as well. I have made a 
number of friends over the years at our club 
and you will too, once you join and get in- 
volved. 
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If you just bought an Atari 8-bit computer, 
or even if you are an old-timer, I urge you 
to get involved with a local users' group. Not 
only will you be able to take advantage of the 
best source of information there is, but you 
could also provide the help necessary for 
someone else to overcome a particular hur- 
dle. For more information on Atari Users' 
Groups, contact Atari Corp. , 1196 Borregas 
Ave., Sunnyvale, CA 94088 (408-745-2000). 
Send your correspondence to the attention of 
"Users' Groups." 

Get involved with an Atari Users' Group. 
You'll be glad you did. 



SpartaDOSX 



ICD has recently released the latest ver- 
sion of their 8-bit disk operating system: 
SpartaDOSX. SpartaDOS X comes in a spe- 
cial 64K cartridge that consumes none of the 
computer's RAM and also has the provision 
to accept another cartridge. This piggyback 
feature is useful in that you don't have to re- 
move SpartaDOS to use another cartridge. 
Just plug the other cartridge into the top of 
the SpartaDOS cartridge and you can use 
both. 

SpartaDOS X gives the Atari computer a 
full complement of DOS commands. In ad- 
dition, it allows you to create subdirectories 
that can significantly improve your file 
management capabilities. Subdirectories are 
used to help organize the contents of the disk 
and although they are useful for floppy disks, 
their use is essential with a hard disk. 

If you are familiar with MS-DOS, the disk 
operating system used with IBM PCs and 
compatibles, you can appreciate the extent of 
the SpartaDOS commands and how they are 
used. Just as with MS-DOS, SpartaDOS X 
categorizes the commands into internal and 
external commands. Internal commands are 
internal to the command processor itself, and 
they require no other program to perform the 
command. 

A number of internal file commands are 
available. The ATTR (Attributes) command 
lets you change the status any of a number 
of file attributes directly. These include ar- 
chive (set when the file is backed up), hid- 
den (allows you to hide or unhide a file or 
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subdirectory and protect (when set, prevents 
the file from being erased. 

Other internal file commands include 
TYPE (allows you to display the contents of 
the file), COPY, ERASE, RENAME and 
DIR (displays a list of files on the disk or in 
the current subdirectory). 

Another two commands, TIME and 
DATE, let you set the time and date of the 
R-Time 8 cartridge (if you have it) or the sys- 
tem clock. 

Four internal commands let you manipu- 
late subdirectories: MKDIR, RMDIR, 
CHDIR and PATH. MKDIR creates a sub- 
directory under a specified drive or another 
directory. RMDIR removes a directory, but 
it must not contain any files before it can be 
removed. CHDIR allows you to change the 
current working directory or, if no subdirec- 
tory name is given, will display the current 
subdirectory name. 

Also called folders or directories, subdirec- 
tories can contain other subdirectories in a 
hierarchical order. The PATH command is 
used to specify which directories should be 
searched for commands or programs before 
the current directory is searched. If, for ex- 
ample, you are two directory levels deep, and 
you want to run a program in another direc- 
tory, the PATH commands must have previ- 
ously been given telling the command 
processor where to look for the program. 
Other internal commands allow you to cold 
boot the computer, PEEK or POKE at 
memory locations and FORMAT a disk. 

There are a number of useful external com- 
mands. These commands are found in the 
CAR: (cartridge) directory and total 48K of 
cartridge memory. These commands allow 
you to enter the internal BASIC language in 
your XL or XE computer (BASIC), enter a 
cartridge plugged into the top of the Sparta- 
DOS X carlridge (CAR), locate a particular 
file on the disk (FIND) and perform any 
number of commands on a selected group of 
files (MENU). 

SpartaDOS X also contains a full-featured 
ARC (archive) utility command (ARC). 
Compatible with the ARC utilities for the 
Atari ST and IBM PC, it will take a group 
of specified files and combine and compress 
them into a single archive file, requiring a 
minimum amount of disk space. Existing ar- 



chive files can also be "unARCed" or broken 
down into the separate files and uncom- 
pressed. Archive files are particularly use- 
ful for saving time when uploading and 
downloading files with a modem. 

Similar to MS-DOS, SpartaDOS X also 
contains the capability for batch files and I/O 
redirection. Batch files are simply a list of 
valid SpartaDOS X commands that are kept 
in a file and executed all at one time. All 
batch files have a .BAT filename extension, 
and you can pass parameters to the batch file 
by including them in the command line. 

For example, suppose you had a batch file 
called "TEST.BAT" which looked like this: 

COPY %1 %3 

COPY %2 %3/A 

When you gave the command: 

COPY FILEl FILE2 OUTPUT 

SpartaDOS X would assign the name 
FILEl to parameter %1, the name OUTPUT 
to parameter %3, and combine the two files 
under the name OUTPUT. Then it would as- 
sign the name FILE2 to parameter %2 and 
append FILE2 to OUTPUT (since the name 
OUTPUT was already assigned to parameter 
%3). Up to nine parameters can be passed 
to a batch file. 

Batch files are especially useful for au- 
tomating a routine chore. For example, you 
may periodically create a new file, want to 
append it to an existing file and then want to 
erase the original file. All of these commands 
could be placed into a batch file and execut- 
ed just by typing the name of the batch file. 

There is a special batch file called AUTO- 
EXEC.BAT. It can be created like any other 
batch file, but since it is the default batch file, 
it will be executed when the command pro- 
cessor is first entered. Any system setup com- 
mands such as defining a PATH, changing to 
a particular drive or directory or sending 
some printer setup codes to the printer could 
be put into this file. In this way, these setup 
commands will automatically be performed 
when the computer is turned on with the 
SpartaDOS X cartridge installed. 

The other MS-DOS-like function is in- 



put/output redirection. With SpartaDOS X 
you can divert the output of a single com- 
mand by including "> >" after the com- 
mand and specifying a device or filename. 
For example, let's say you wanted a listing 
of all of the files on Drive A contained in a 
separate file. Assuming that Drive A was the 
default, the DIR command would list the con- 
tents of the disk on the screen. By using 
redirection, you can divert the output of the 
conunand that would normally go to the 
screen, to a file, like this: 

DIR > > DIRFILE. 

After executing this command, the file 
called DIRFILE will contain a list of the files 
on the disk in Drive A. 

I have not listed every command available 
with SpartaDOS X. To do so would require 
more space than I have here. However, I have 
tried to give you a sample of the power that 
is available with ICD's SpartaDOS X. As you 



can see, it is the most powerful DOS current- 
ly available for the 8-bit Atari computer. It 
gives the 8-bit Atari user the power that has 
previously only been available to IBM PC 
owners. 

The version of SpartaDOS X I have con- 
tains only a preliminary manual. The prelimi- 
nary manual documents only the user 
interface and provides general information on 
the commands. There is no index or table of 
contents, but it is enough to get you started 
using the DOS. However, by the time you 
read this, the final version of the manual will 
be complete and packaged with the product. 
Should you buy a copy of the program with 
the preliminary manual, just send in your 
warranty card, and ICD will send you the fi- 
nal manual, plus you will be entitled to one 
ROM upgrade for $8 (normal upgrade price 
is $20). 

ICD has long been supporting the Atari 



8-bit computers with such products as the US 
Doubler (an add-in chip for the Atari 1050 
disk drive which makes it a true double- 
density drive), the P:R: Connection (a hard- 
ware interface which provides one parallel 
and two serial ports), Rambo XL (a 256K 
memory upgrade for the 800XL and 1200XL 
computers), and R-Time 8 (a battery-backed 
clock cartridge that provides time/date stamp- 
ing for files). 

The SpartaDOS X cartndgc represents the 
most complete 8-bit DOS now available, is 
supported by a fine company and retails for 
$80. For information on SpartaDOS X or any 
of the other fine ICD products, contact ICD, 
Inc., 1220 Rock St., Rockford, IL 61101-1437. 
You can also call them at (815) 968-2228. 

Arthur Leyenberger is a human factors psy- 
chologist and freelance writer living in beau- 
tiful New Jersey. R 



TO LOAD VOUR ANALOG DISK 



FOR OUR DISK 
SUBSCRIBERS 

The following programs from this 
issue are on disk: 



THE ANALOG tt73 DISKETTE CONTAINS 24 
MAGAZINE FILES. THEV ARE LISTED BELOU: 



SIDE 1: 












FILENAME 


.EXT 


LANG. 
BASIC 


LOAD 
LOAD 


ARTICLE NAME 
ACCESS HIDDEN MEM, 




ftCCESSl 


.BAS 


■ , LI 


ACCESS2 


.BAS 


BASIC 


LOAD 


ACCESS HIDDEN MEM. 


,, L2 


AGENT 


.OBJ 


ML 


Clt3] 


SECRET AGENT 




ALPHABET 


.BAS 


BASIC 


LOAD 


DIRECTORV ALPHABETIZER 


FORMAT 


.COM 


ML 


(115} 


COMMAND PROCESSOR 


II 


DUMP 


.COM 


ML 


(tl5] 


COMMAND PROCESSOR 


II 


DISBAT 


.COM 


ML 


CDS) 


COMMAND PROCESSOR 


II 


SAUE 


.COM 


ML 


Ctl5] 


COMMAND PROCESSOR 


n 


SEC2PRNT 


.BAS 


BASIC 


LOAD 


SECTOR TO PRINTER 




MARBLEMG 


.BAS 


BASIC 


LOAD 


MARBLE MAGIC 




MLEDITOR 


.BAS 


BASIC 


LOAD 


M/L EDITOR 




EDITORII 


.LST 


BASIC 


ENTER 


BASIC EDIMR II 




SIDE 2: 












FILENAME 


.EXT 


LANG. 


LOAD 


ARTICLE NAME 




SPVPTl 


.M65 


MAC/65 


LOAD 


SECRET AGENT 




SPVPT2 


.MG5 


MAC/65 


LOAD 


SECRET AGENT 




SPVPT3 


.MS5 


MAC/'65 


LOAD 


SECRET AGENT 




SPVPT4 


.ME5 


MAC/6S 


LOAD 


SECRET AGENT 




SPVPT5 


.MG5 


MAC/GS 


LOAD 


SECRET AGENT 




SPVPT6 


.M65 


MAC/65 


LOAD 


SECRET AGENT 




CODEIT 


.M6S 


MAC/65 


LOAD 


SECRET AGENT 




FORMAT 


.MG5 


MAC/65 


LOAD 


COMMAND PROCESSOR 


II 


DISBAT 


.M6S 


MAC/65 


LOAD 


COMMAND PROCESSOR 


II 


DUMP 


.MGS 


MAC/6S 


LOAD 


COMMAND PROCESSOR 


II 


SAOE 


.MG5 


MAC/65 


LOAD 


COMMAND PROCESSOR 


II 


BOOTCAMP 


.ASM 


ASM/ED 


ENTER 


BOOT CAMP 





1) INSERT BASIC CARTRIDGE CNOT REQUIRED FOR XE 

OR XL COMPUTERS) . 
2] TURN ON DISK DRIVE AND MONITOR. 
3) INSERT DISK IN DRIVE. 
4] TURN ON COMPUTER. (XL AND XE OMNERS: DO NOT 

HOLD DOUN OPTION KEV!] 



UARNING: BEFORE VOU RUN A PROGRAM, READ THE 

APPROPRIATE ARTICLE IN THE MAGAZINE. 
FAILURE TO DO SO MAV VIELD CONFUSING 
RESULTS. 

NOTE: ONLV PROGRAMS UITH THE .BAS OR .OBJ 
EXTENSION MAV BE RUN FROM THE MENU. 
OTHER PROGRAMS SHOULD BE LOADED AS 
INSTRUCTED IN THE LOADING NOTES AND 
MAV REOUIRE ADDITIONAL SOFTMARE AS 
LISTED BELOM. HOUEUER, VOU SHOULD 
NOT ASSUME THAT EUERV FILE MITH 
THE PROPER FILE EXTENSION UILL RUN 
FROM THE MENU. VOU MAV HAUE TO MOUE 
CERTAIN PROGRAMS TO A DIFFERENT DISK 
TO OBTAIN CORRECT RESULTS. 



EXT DESCRIPTION 



REQUIRES 
REQUIRES 
.ASM REQUIRES 
.ACT REQUIRES 
REQUIRES 
REQUIRES 



.M65 
.AMA 



,LGO 
.SVN 



THE MAC/65 ASSEMBLER 
THE ATARI MACRO ASSEMBLER 
THE ATARI ASSEMBLER/EDITOR 
THE ACTION! CARTRIDGE 
THE ATARI LOGO CARTRIDGE 
THE SVHAPSE SVN ASSEMBLER 



LOADING NOTES 



LOAD BASIC program: 
ENTER BASIC PROGRAM: 
LOAD MAC/ES PROGRAM: 
ENTER ASM/ED PROGRAM: 
LOAD LOGO PROGRAM: 
LOAD SVN/AS PROGRAM: 



LOAD "D: FILENAME. EXT" 
ENTER "D: FILENAME. EXT" 
LOAD nD:FILENAME.EXT 
ENTER aD: FILENAME. EXT 
LOAD "DlFILENAME.EXT" 
LOAD "D:FILENAME.EXT" 



Si: SEE ACTION! MANUAL. 

«2: SEE ATARI MACRO ASSEMBLER MANUAL. 

B3: MAV ALSO BE LOADED FROM DOS USING THE "L" 

OPTION OF THE DOS MENU. 
1:4: THIS FILE SHOULD BE TRANSFERRED TO ANOTHER 

DISK AND RENAMED "AUTORUN.SVS". 
115: READ THE APPROPRIATE ARTICLE FOR INSTRUCTIONS 

ON USING THIS FILE. 
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UTILITY 

M/L EDITOR 

For use in machine-language entry. 



by Clayton Walnum 



M/L 



Editor provides an easy 
method to enter our 
machine-language list- 
ings. It won't allow you 
to skip lines or enter bad 
data. For convenience, you may enter listings 
in multiple sittings. When you're through typ- 
ing a listing with M/L Editor, you'll have a 
complete, runnable object file on your disk. 

There is one hitch: It's for disk users only. 
My apologies to those with cassette systems. 

Listing I is M/L Editor's BASIC listing. 
Type it in and, when it's free of typos, save 
a copy to disk, then run it. 

On a first run, you'll be asked if you're 
starting a new listing or continuing from a 
previously saved point. Press S to start, or 
C to continue. 

You'll then be asked for a filename. If 
you're starting a new listing, type in the file- 
name you want to save the program under, 
then press RETURN. If there's already a file 
by that name on the disk, you'll be asked if 
you wish to delete it. Press Y to delete the 
file, or N to enter a new filename. 

If you're continuing a file, type in the name 
you gave the file when you started it. If the 
program can't find the file, you'll get an er- 
ror message and be prompted for another file- 
name. Otherwise, M/L Editor will calculate 
where you left off, then go on to the data en- 
try screen. 

Each machine-language program in 
ANALOG Computing is represented by a list 
of BASIC data statements. Every line contains 
16 bytes, plus a checksum. Only the numbers 
following the word DATA need to be con- 
sidered. 

M/L Editor will display, at the top of the 
screen, the number of the line you're current- 
ly working on. As you go through the line, 
you'll be prompted for each entry. Simply 



type the number and press Return. If you 
press Return without a number, the default 
is the last value entered. 

This feature provides a quick way to type 
in lines with repetitions of the same number. 
As an added convenience, the editor will not 
respond to the letter keys (except Q for 
"quit"). You must either enter a number or 
press Return. 

When you finish a line, M/L Editor will 
compare the entries' checksums with the 
magazine's checksum. If they match, the 
screen will clear, and you may go on to the 
next line. 

If the checksums don't match, you'll hear 
a buzzing sound. The screen will turn red, 
and the cursor will be placed back at the first 
byte of data. Compare the magazine listing 
byte by byte with your entries. If a number 
is correct, press RETURN. 

If you find an error, make the correction. 
When all data is valid, the screen will return 
to gray, and you'll be allowed to begin the 
next line. 

Make sure you leave your disk in the drive 
while typing. The data is saved continuously. 

You may stop at any time (except when you 
have a red screen) by entering the letter Q for 
byte 1. The file will be closed, and the pro- 
gram will return you to BASIC. When you've 
completed a file, exit M/L Editor in the same 
way. 

When you've finished typing a program, 
the file you've created will be ready to run. 
In most cases, it should be loaded from DOS 
via the L option. Some programs may have 
special loading instructions; be sure to check 
the program's article. 

If you want the program to run automati- 
cally when you boot the disk, simply name 
the file AUTORUN.SYS (make sure you have 
DOS on the disk.). 



The two-letter checksum code pre- 
ceding the line numbers here is not 
a part of the BASIC program. For 
more information, see the "BASIC 
Editor n" elsewhere in this issue. 



LISTING 1: BASIC LISTING 



iM IB DIM BF(16>,HSC41,A«C11,B$(1I,F$(151 

,F1$(1SJ 
LF 11 DIM H0D$(4I 
M 2B LINErl00e!RETRN-155lBACK5P=12e!CHKS 

UM=e:EDIT=B 
GO 3B G05UB 45a!P0SITI0N 1B,6I? "Htart or 

Hontinue? "IIGOSUB 5B8!? CHR$(0> 
M 40 POSITION 10,8!? "FILCNOHE"! IINPUT T 

SiPOKE 752,117 " " 
re SB IF LEN(F$><3 THEM POSITION 2B,10:7 

GOTO 4B 

•r 6B IF F$C1,2)<>"D1" THEN F1S="D : "I Fl* C 

31=F$:G0Ta SB 
KL 70 F1$=F$ 

f| 80 IF CHn$C(l)="S" THEN 12B 
W 5B map 43B:0PEN R2, 4, B, Fl$ : TRAP IIB 
HB lOB FOR X = l TO 16:GET tt2,AlNEXT XILINE 

:LINEtlB:GOTO lOB 
MH IIB CLOSE tl2:0PEN tt2, ), B, FlS : GOTO 17B 
VT 12B TRAP ISBiOPEN t)2, 4, B, Fl$ : GOSUB 446 

:P05ITI0N IB, IB!? "FILE ALREADY EXISTS 

I !":POKE 752, B 
:XII 130 POSITION 18,12!? "ERASE IT? "J!GOS 

UB 580!POKE 752,11? CHR$ CA> 
MH 140 IF CHR5CAJ="N" OR CHR$CAlr"n" THEN 

CLOSE tt2!G0T0 30 
OG 15B IF CHRS[A)<>"V" AND CHR$CAl<>"y" T 

HEN 138 
•H 160 CLOSE B2!0PEN lt2,8,8,Fl$ 
IE 178 GOSUB 45BlP05ITiaN 18,11? " l.'lil!Bii:B 

wi.'U ! ";linE!CHksum=8 

GH 180 L1=3!F0R X=l TO 161P0SITI0N 13»CK< 

10)tl2»tK>5) ,H»2lP0KE 752,81? "BYTE 11" 

;X; ; IGOSUB 318 

KN 190 IF EDIT AND L = B THEN BYTEzBF CX) I GO 

TO 218 
rV 20fl BYTEzUAHNS) 
OZ 281 M0DS=N$ 

BU 218 POSITION 22,X+21? BYTE;" " 
VZ 220 BFt«)=BYTElCHKSUM=CHKSUM*BYTE»KlIF 

CHK5UM>9599 THEN CHKSUM=CHK5UM-100B8 
HS 230 NEXT X1CHK5UH=CHK5I)M»LINE1IF CHK5U 

M>999? THEN CHKSUM=CHK5UM-ie008 
M 248 POSITION 12,X*21P0KE 752,81? "CHEC 

KSUH: "; 1L1=:41G05UB 318 
EH 258 IF EDIT AND L=B THEN 278 
AH 266 C=VALCH$) 

S» 278 POSITION 22,Xt2l? CJ" " 
It 288 IF C=CHK5UM THEN 388 

M 298 GOSUB 440:E[>IT=1!CHK5UM=B1C0T0 180 
LH 300 FOR X = l TO 161PUT 112, BF CX) 1 NEXT Xl 

LIHE=LINE+lB!EDIT=BlC0TO 170 
rV 318 L=8 
KZ 328 GOSUB 500:IF (A=«SCt"0"> OR ArASCC 

"q")) AND X=l AND NOT EDIT THEN 420 
PO 338 IF AORETRN AND AOBACKSP AND CA<4 

8 OR A>57) THEN 328 
»H 331 IF A=RETRN AND HS="" THEN NSzMODS 
T» 335 IF A=RETRN OND L=8 AND X>1 THEN 35 

B 
JR 348 IF ((A-RETRN AND NOT EDIT) OR A=B 

ACKSP) AND L=0 THEN 320 
DH 350 IF ArRETRN THEN POKE 752,11? R 

ETURN 
GG 368 IF AOBACKSP THEN 488 
SA 378 IF L>1 THEN NSzNS (1, L-1) I GOTO 398 
AS 380 NS="" 

RE 390 ? CHRSCBACKSP); 1L=L-11G0T0 328 
BB 408 L=LtlllF L>L1 THEN A=RETRH:G0T0 35 

8 
HK 418 NStL)=CHRS(l>) :? CHRSCA) J ICOTB 320 
KN 420 GRUPHICS OICHD 
VT 430 C05UB 440:Pa5ITI0N 10,101? "NO SUC 

H FILE!":FOH K=l TO lOOBlNEXT XlCLCSE 

tl21G0T0 30 
n 440 POKE 710,48:S0UHD 8, 108 , 12, 8 1 FOR X 

=1 TO SOlNENT XISOUND B , , 8 , : RETURN 
H* 458 GRAPHICS 23IP0KE 16,1121PDKE 53774 

,112lP0KE 559,0;P0KE 718,4 
XR 460 DL=PEEK(560) t256»PEEK<561)t4lP0KE 

DL-1,70:P0KE DLt2,6 
MM 478 FOR X=3 TO 39 STEP 2:P0KE DLtX,2lN 

EXT XIFOR X=4 TO 48 STEP 2IP0KE 0L»X,8 

ZH 480 POKE DL*41,651P0KE DLt42, PEEK 15601 
IPOKE DLt43,PEEK[561J IPOKE 87,0 

AC 490 POSITION 2,01? "analog Ml editor"! 
POKE 559,341RETURN 

ta 500 OPEN 111,4,0,"K1"1GET t»l,AlCLOSE HI 

i. IRETURN ^ 
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Last month, we learned what a pro- 
gram actually is, and along the way 
we discovered constants, variables 
and line numbers. We also started to 
study two BASIC commands: INPUT 
and PRINT. However, though we discussed 
these instructions in a general way, we didn't 
truly explore their capabilities. Both INPUT 
and PRINT are very flexible; this month we'll 
see just how flexible. 

More About INPUT 

More than any other command, INPUT is 
responsible for making BASIC an interactive 
language, one that allows for the creation of 
programs with the ability to easily get data 
from a user. Previously, we used the INPUT 
command to get a single value from the key- 
board, but its abilities go far beyond that. We 
can also use INPUT to get multiple values, 
with a single instruction— and those values 
need not be of the same data type. (In BASIC, 
the data types we generally refer to are nu- 
merical and string; we'll talk about strings 
next month.) 

To retrieve more than one value with IN- 
PUT, we simply add to the command a list 
of the variables, separated by commas, in 
which we want the data stored. For example, 
the command INPUT A, B, C will accept 
three numerical values from the keyboard and 
store those values in A, B and C. 

There are two ways the user can enter these 
values. The first method is to type all three 
values, separated by commas, on the same 
line, and then press Return. For example, if 

BS 



we respond: 

? 1,2,3 
to our example INPUT command, A will get 
the value 1, B will get the value 2, and C will 
get the value 3. (Remember, the question 
mark is the computer's signal to enter some- 
thing; you don't actually type it.) 

The second method is to type each value 
singly followed by Return. The computer will 
keep prompting the user with question marks 
until it gets the number of values it needs: 

?1 

?2 

?3 

These responses give us the same results 
as before: A gets 1, B gets 2, and C gets 3. 

The INPUT command can also be used to 
get data from other devices, such as a disk 
or cassette drive. But we're not going to talk 
about that just yet. We don't want to get ahead 
of ourselves. 

More About PRINT 

Just as with INPUT, there are many ways 
to use PRINT. Some of them are too ad- 
vanced for this month's discussion, such as 
PRINTing to a disk file. We'll cover that 
usage later in this series. One topic we can 
cover, though, is using PRINT to format 
output. 

We just discussed how an INPUT statement 
can incorporate a variable list. If you think 
for a minute, you'll realize that PRINT 
(which is a form of output) is really just the 
opposite of INPUT (which is a form of, well, 
input), so it follows that a PRINT command 



can also have a data list. The difference is 
that the values in the list are output rather 
than input, and it's possible to use not only 
variables but constants, as well. In fact, we 
can even use mathematical expressions. Fur- 
ther, by using commas and semicolons, we 
have some control over the format in which 
the data is output. As you can see, PRINT 
is one of the most powerful conMnands in 
BASIC. 

Here's an example of a PRINT conunand 
with a data list: 

PRINT ■■fl+B+C=";ft+B+C 

Do you know what will happen here? Let's 
assume that right before this PRINT we had 
the INPUT statement we discussed previous- 
ly, and let's further assume that we had en- 
tered the same values: 1, 2 and 3. The output 
of this PRINT would look like this: 

fl+B+C=6 

Let's take a closer look at how we got this 
result. 

The "A+B+C=" in the output is the string 
constant immediately following the PRINT 
command. You'll recall that anything within 
quotes is a string constant and that PRINT 
will output the string exactly as it appears, 
minus the quotes. 

Following the string constant, we have a 
semicolon, which tells PRINT to stay on the 
same line and place the next piece of output 
immediately after the previous one. In our 
case the next item in the list is an arithmetic 
expression, which must be solved in order 
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MORE about INPUT ana PRINT 



to get the data we want to display. The ex- 
pression's solution is, of course, 6, so a "6" 
is printed immediately following the string 
constant. 

Here is a sample program that illustrates 
all of the above concepts, along with a typical 
"run" of the program (what we might see on 
the screen were we to run the program and 
respond to the prompts). 



10 PRINT "Type three nuHbers:" 

20 INPUT HUM1,NUM2,NUM3 

30 PRINT 

40 PRINT "The average of your nuMbers" 

50 PRINT "C";humi;", ";num2;" and ";HU 

MI;"3 is "J CN1JM1+NUM2+NUMS)/3J"." 



curately separate the constants from the vari- 
ables. There are actually nine arguments after 
this PRINT statement. They are: 



Sample run: 



Type three nuMbers: 
?5, 18,15 

The average of your nuHbers 
t5, 10 and 151 is 18. 



The INPUT command in the above exam- 
ple should be easy to understand, but can you 
follow what's happening with the PRINT 
statements in Lines 30 through 50? In Line 
30, because there is no "argument" (data to 
be processed by a command) following the 
PRINT statement, it simply prints a blank 
line. On our screen, that gives us some space 
between our input and the results of that in- 
put, making the display easier to read. 

Line 40 simply prints this string constant: 

The average of your nuHbers 

No problem understanding that, right? 
Anything between the quotes is printed 
verbatim. 

After the string is printed, we go to a new 
line, because the PRINT statement didn't end 
with a semicolon. 

Line 50 is a bit tricky. When analyzing this 
line of code, you have to match the open and 
close quotes carefully, so you'll be able to ac- 
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■ ■ fit 

NUMl 

■ I ■■ 

NUh12 

" and " 

NUM3 

") is " 

(NUM1+HUM2=HUM31 /S 



Each of these arguments is separated by a 
semicolon, which means that they will be 
printed one right after the other, without any 
extra spaces and without going to a new line. 
The first piece of data, a string constant, is 
printed on the line immediately following the 
string that was printed in Line 40, giving us 
this on the screen: 



The average of your nuMbers 
c 

Next, the value of the variable NUMl is 
printed: 

The average of your nuMbers 
C5 

The third argument is a string constant 
made up of a comma and a space. This string 
is printed, giving us: 

The average of your nunbers 
ts. 

The value of NUM2 is then printed: 

The average of your nunbers 
C5, 10 

Then the next string constant: 

The average of your nuHbers 
C5, 10 and 

Now the value of NUM3 is added: 

The average of your nunbers 
(5, 10 and 15 



The average of your nunbers 
C5, 10 and 15} is 

And a mathematical expression, the result 
of which will be printed: 

The average of your nuMbers 
(5, 10 and 15) is 10 

And finally, we conclude with the last 
string constant, a period: 

The average of your nuMber 
15, 10 and 15J is 10. 

In all our examples, we've been separat- 
ing the data in the list with semicolons, but 
you can also use commas, which will cause 
each piece of data to be printed at the next 
tab stop. The default tabs for the Atari are 
eight spaces apart. For example the 
statement: 

PRINT "ONE", "TWO" 

will give you: 

ONE TWO 

You should note that you may place a semi- 
colon or a comma at the end of a PRINT 
statement. For example, look at these two 
statements: 

PRINT "THIS IS TEST"; 
PRINT "THIS IS NOT" 

They will give you this result: 
THIS IS A TE5TTHIS IS NOT 

The semicolon at the end of the first 
PRINT statement prevents the cursor from 
advancing to the next line. (The cursor marks 
where your next output will appear.) 



Till Next Time 



Then another string constant: 



I'm sure that our discussion of Atari 
BASIC'S flexible INPUT and PRINT com- 
mand has left your head spinning, so we'll 
take a break here. Till next time, keep 
studying. ff{ 

B3 



continued from page 19 
cation. This section uses a much simpler 
filtering system composed of two strings of 
15 characters each; one contains the "before" 
data and the other contains the "after" data. 
For each of the 128 bytes in a sector, the cur- 
rent character is searched for in the first string 
and, when found, is changed to the cor- 
responding character in the second string. If 
it is not found, the character is changed to 
a "?" for further editing by the programmer. 

The dungeon printing portion is similar to 
that of the city, but it prints a border of aster- 
isks around the map and only prints 16 
character lines. If the continue option is 
chosen after the completion of a level, the 
program adds 2 to the sector number and 
goes back to the reading part of the dungeon 
section to read the next level. Lines 4000 
through 4990 contain a simple LPRINT set 
that prints a map legend for quick identifi- 
cation of map features, and at Line 10000 the 
subroutines begin. 

The 10000 block loads in one sector and 
stores it in page 6 memory by passing the ad- 
dress of the ML routine, an "82" (the ATAS- 
CII code for read) and the sector number to 
be read to the ML routine via a USR call. 
In the same manner, the 11000 block filters 
the 128 bytes in page 6 using the data con- 
tained in FILTERS and stores the new data 
at the location of TCITY$ to be loaded by the 
BASIC program into CITY$ and later print- 
ed. The 30000 block merely contains the 
massive amounts of data for the routines and 
the sections that load the data into the proper 
strings. 

Possible Modifications 

Since this program grew by bits and pieces, 
added here and there, I had to entirely rewrite 
it to produce the code shown here. But it will 
be worth the effort if it enables people to 
adapt this code to their own purposes more 
easily. Possible changes include: a screen 
viewer, a user-modifiable filter and a vari- 
able size of map to be loaded. To develop a 
program to map a different game, the read 
routines, the filter and the arrays must be al- 
tered to fit the size and characters of the new 
data. It sounds like a lot of work— and it is— 
but the experience can be educational and the 
results helpful. 

David Hill is an electrical engineering 
major at the University of Texas in Austin, 
where he is a member of the Longhorn 
Marching Band. He began his programming 
on a TRS-80 Model 1, then progressed to an 
Atari 800XL, 130XE and finally a 1040ST. 



LISTING 1: BASIC 



EH REM KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 

DC 2 REM » SECTOR TO PRINTER MAPPING » 

VH 3 REM » PROGRAM * 

HU 4 REM « b;; David Hill K 

TC 5 REM » » 

OY 6 REM » COPYRIGHT 1989 » 

LM 7 REM * BY ANALOG COMPUTING » 

EP 8 REM KKXKMKKKKKXKKKKXMKKMKXKKKKltKKKX 

KU 10 REM INITIALIZE AND SETUP ARRAYS 

NJ 15 DIM FILTER$t256),CITYSt4096J,TStlJ 

LF 20 DIM SECTRW5t68),TCITYStl28) 

UG 25 DIM MACHFILTER$t38),DUNSt256J 

IK 30 DIM DFILT1SC15J,DFILT2SC15) 

SN 35 DIM CHARS (1) 

01 40 TCITY5(1J=".":TCITYSC128J="." 

FO 45 TCITYSt2J=TCITYSCl) 

KU 50 ? "«":? :? :? :? "INITIALIZING..." 

CA 55 ? "PLEASE HAIT" 

FH 60 GOSUB 30000:REM READ SECTOR INIT 

WC 65 GOSUB 39200:REM FILTER INIT 

VA 70 GOSUB 3a4O0:REM MACH FILTER INIT 

KK 75 GOSUB 30600 : REM DUN FILTER INIT 

JT 80 ? "PLEASE INSERT DISK AND HIT RETUR 

N"; :INPUT TS 
KI 85 SEC=l:GOSUB lOOOO 
DK 1000 REM MAIN ROUTINE STARTS HERE 



KT 


1010 


•7 


••h" 






KA 
VZ 
EA 


1015 
1020 
1025 


■7 






MAIN MENU:" 


•} 




tl) 


PRINT A CITY" 


EO 


1030 


7 




t2J 


PRINT A DUNGEON" 


RI 


1035 


? 




(31 


PRINT A MAP LEGEND" 


ZR 


1040 


? 




(41 


QUIT" 


OB 


1045 


? 


"ENT 


ER C( 


lOlCE: (1-41": :iNPUT c 



CITY PRINT MENU:' 



CZ 1050 IF CH<1 OR CH>4 THEN lOOO 

UL 1055 ON CH GOTO 2809,3000,4000 

WD 1060 ? "DO YOU WANT TO OUIT? (Y/Nl "; 

GN 1065 INPUT TS:IF TS<>"Y" THEN 1000 

FI 1070 END 

OA 2000 REM PRINT CITY SECTION 

MK 2010 

XY 2015 

ZA 2020 

IR 2025 

UU 2030 

FJ 2035 

SI 2040 

OM 2045 

PR 2050 

MH 2055 

TY 2060 

LS 2065 

SW 2070 

TB 2075 

JF 2080 

CC 2085 

PU 2090 

YS 2095 



LCB'S CASTLE" 
EKODUS" CASTLE" 
LCB'S TOWN- 
MOON" 
YEW" 

MONTOR EAST" 
MONTOR WEST" 
GREY" 



(111 
(121 
(131 
(141 



(11 

(21 
(31 

(41 
(51 
(61 
(71 
(81 

(91 DAWN" 
(101 DEUIL GUARD" 
FAWN" 

DEATH GULCH" 
AMBROSIA" 
SOSARIA" 
"ENTER « OR 15 TO GO BACK:"; 
FC 2100 INPUT S:IF S=15 THEN lOOO 
KI 2105 IF S<1 OH S>14 THEN 2000 
SW 2110 S=(S-ll»32+l:? "H":? "READING.." 
VD 2115 FOR OFFSET=0 TO 31 : SEC=S+OFFSET 
FN 2120 GOSUB 1O000:REM READ SECTOR 
WK 2125 POKE ADR (MACHFILTER$1 , 104 
JJ 2130 GOSUB 110O0:REM FILTER SECTOR 
^B2135 CITY$(0FFSET»128+1,0FFSET»128 + 128 
^^>=TCITY5 (1,1281 
DF 2140 NEXT OFFSET 
AP 2145 ? :? "PRINTING..." 
HB 2150 FOR LINE=1 TO 64 
ED 2155 START=(LINE-11»64+1 
m 2160 LPRINT CITYS (START, START+631 
IJ 2165 NEXT LINE:GOTO 2000 
WB 3000 REM DUNGEON PRINT SECTION 
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WD 3010 REM PUT YOUR PRIHTER CODE HERE 

AJ 3015 ? "IS":? :? " DUNGEON MENU: 

ZB 3020 

OT 3025 

FH 3030 

CH 3035 

EN 3040 

LT 3045 

PR 3050 

TP 3055 



(1) 

C21 
(3} 
C4) 
C5] 
(61 



NS 3150 
HP 3155 



50UTH COftST" 
DUNGEON OF FIRE" 
TIME flWfllTS" 
CLUE5 TO FOLLOW" 
PERINIAN DEPTHS" 
MINES OF MORINIA" 
ENTER » OR 7 TO GO BACK:"; 
FK 3060 INPUT S:IF S<1 OR S>7 THEN 3000 
CE 3065 IF S=7 THEN lOOfl 
HO 3070 S=S*H6+433:? :? "READING..." 
TK 3075 FOR OFFSETrfl TO 1 : SEC=S+OFFSET 
PY 3080 GOSUB lO0Oe:REM READ NEXT SECTOR 
DT 3085 FOR BYTE=1 TO 128 
RU 3090 CHAR$=CHR5CPEEKtl663+BYTE)) 
BU 3055 FOR CHAR=1 TO 15 
HA 3100 IF DFILT1$(CHAR,CHAR}=CHAR$ THEN 

CHARS=DFILT2$(CHAR,CHARJ I GOTO 3110 
MK 3105 NEXT CHAR : CHARS="?" 
GJ 3110 DUN$tOFFSET»128+BYTEJ=CHARS 
CI 3115 NEXT BYTE:NEXT OFFSET 
ZO 3120 ? I? "PRINTING..." 
YU 3125 LPRINT " XKKKKKKKKKKKKKKKKK " 
EQ 3130 FOR LINE=1 TO 16 
YP 3135 LPRINT "*"; DUN$ t tLINE-lJ*16+l, LIN 

E*16J;"*" 
MI 3140 NEXT LINE 
ZA 3145 LPRINT " KMKKKKKKKKKKKKKKICK " 

? "TYPE tl) TO READ NEXT LEVEL," 
? "OR TYPE (2J TO GO BACK:"; 
WI 3160 INPUT CH:IF CHOl THEN 3000 
IJ 3165 S=S+2:G0T0 3075 
RW 4000 REM PRINT A MAP LEGEND 
GR 4010 ? "IS":? " MAP LEGEND PRINTER" 
ZT 4015 ? •'============================" 

YN 4020 ? "TYPE 1 TO PRINT OR 2 TO GO BAC 

K:"; 
UJ 4025 INPUT CH:IF CHOl THEN lOOO 
CI 4030 LPRINT : LPRINT : LPRINT 
ZH 4035 LPRINT " MAP LEGEND: 

II 

OR 4040 LPRINT "========================= 

— — — — — — — — — — — — <■ 

RV 4041 LPRINT " E 3 WALKWAY" 

XM 4042 LPRINT " tKl MOONGATE" 

XY 4045 LPRINT " tttl WALL" 

LG 4050 LPRINT " t$] CHEST" 

OH 4055 LPRINT " [t] LAVA" 

NO 4060 LPRINT " l*J SHRINE" 

AU 4065 LPRINT " [+3 DARK FOREST 

II 

WT 4070 LPRINT " t-3 LIGHT FORES 

T" 

DE 4075 LPRINT " [.] GRASS" 

TF 4080 LPRINT " C:! EXODUS" 

LM 4085 LPRINT " t=: 'BLANK' WAL 

L" 

KR 4090 LPRINT " i:>3 MOUNTAIN" 

BS 4095 LPRINT " tQI WHIRLPOOL" 

WH 4100 LPRINT " CBl BALRON/DEVI 

L" 

NK 4105 LPRINT " tC3 CASTLE/CLER 

IC" 

RQ 4110 LPRINT " ID] DUNGEON/DRA 

GON/DAEMON" 

TL 4115 LPRINT " IF] FIGHTER" 

DW 4120 LPRINT " IG3 GUARD" 

UU 4125 LPRINT " IH] HORSE" 

ER 4130 LPRINT " III DOOR" 

SC 4135 LPRINT " IJ] JESTER" 

T5 4140 LPRINT " IM] MERCHANT/MA 

N '0 WARS" 

ZF 4145 LPRINT " IP] PIHCHER" 

GH 4150 LPRINT " IR] RANGER" 

HI 4155 LPRINT " IS] SEA MONSTER 



/SKELETONS" 

JN 4160 LPRINT " IT] THIEF" 

EB 4165 LPRINT " IW] WIZARD" 

MU 4170 LPRINT " I|] GREAT SERPE 

NT" 

ES 4175 LPRINT : LPRINT " DUNGEON LEGEN 

D" 

YC 4180 LPRINT ••============= ====== ===='• 

EA 4185 LPRINT " I ] HALLWAY" 

XU 4190 LPRINT " Itt] WALL" 

HZ 4195 LPRINT " IX] SECRET DOOR 

II 

XI 4200 LPRINT " til NORMAL DOOR 

II 

LP 4205 LPRINT " I$3 CHEST" 

OP 4210 LPRINT " IT] TRAP" 

IZ 4215 LPRIMT " IF] FOUNTAIN" 

KG 4220 LPRINT " IW] WINDS" 

IE 4225 LPRINT " IG] GREMLINS" 

MG 4230 LPRINT " C+] 2 WAY LADDE 

R" 

FC 4235 LPRINT " I^] UP LADDER" 

ZY 4240 LPRINT " lu] DOWN LADDER 

II 

QU 4245 LPRINT " IR] RUNES" 

UN 4250 LPRINT " IL] LORD OF TIM 

E" 
PR 4990 GOTO 4000 

HN 10000 REM READ SECTOR ROUTINE 
KP 10010 X=U5RCADRtSECTRW$l,82,SEC) 
GM 10015 IF X=l THEN RETURN 
BM 10020 ? "ERROR AT 5ECT0R:";SEC 
YN 10025 END 

UR 11000 REM MACHINE LANGUAGE FILTER 
WC 11010 A=U5RCADRIMACHFILTERSJ,ADRCTCITY 

S) , ADR tFILTERS) ) ! RETURN 
RD 30000 REM INITIALIZE READING ROUTINE 
MK 30010 FOR K=l TO 68:READ Q 
01 30015 SECTRW$tK,K)=CHRSttlJ :NEXT K 
DH 30020 RETURN 
RE 30025 DATA 104,104,104,201,083,169,082 

,144 
FH 30030 DATA 002,169,087,072,159,000,072 

,169 
XJ 30035 DATA 001,072,169,000,072,169,128 

,072 
ZF 30040 DATA 169,006,072,072,104,104,141 

,005 
JI 30045 DATA 003,104,141,004,803,104,104 

,141 
BL 30050 DATA 001,003,104,104,141,002,003 

,104 
BD 30055 DATA 141,011,003,184,141,010,003 

,032 
MY 30060 DATA 083,228,173,003,003,133,212 

,169 
IP 30065 DATA 000,133,213,096 
J5 30200 REM INITIALIZE FILTER DATA 
JL 30210 FOR FIL=1 TO 256:READ A 
NF 30215 FILTER$(FIL,FILJ=CHR$tAJ 
PK 30220 NEXT FIL:RETURN 
QW 30225 DATA 126,001,002,003,046,005,006 

,007 
LS 30230 DATA 045,809,010,011,043,013,014 

,015 
DP 30235 DATA 062,017,018,019,068,021,022 

,023 
IJ 30240 DATA 084,025,026,027,067,029,030 

,031 
MU 30245 DATA 032,033,034,035,036,036,036 

,036 
SF 30250 DATA 072,041,042,043,038,045,046 

,047 
5R 30255 DATA 064,849,050,051,083,053,054 

,055 
DS 30260 DATA 077,057,058,059,038,061,062 

,063 
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continued from page 19 

JE 30265 DftTfl 077,865,066^067,674,069,076 

,071 
AY 30270 DATA 071,673,074,075,066,077,678 

,679 
UJ 36275 DATA 070,681,682,683,667,605,686 

,087 
MS 36286 DATA 687,689,690,091,084,093,094 

,095 
TM 30285 DATA 096,097,098,099,083,101,102 

,103 
ZU 30290 DATA 104,105,106,107,068,109,118 

ill! 
HU 30295 DATA 080,113,114,115,068,117,118 

HQ 30300 DATA 066,121,122,123,124,125,126 

127 
BO 30305 DATA 043,129,130,131,040,133,134 

,135 
RR 30310 DATA 037,137,138,139,035,141,142 

,143 
UJ 30315 DATA 144,145,146,147,061,149,150 

,151 
UA 30320 DATA 065,153,154,155,066,157,158 

,159 
SF 30325 DATA 667,161,162,163,068,165,166 

,167 
JM 30330 DATA 069,169,170,171,070,173,174 

,175 
SM 30335 DATA 071,177,178,179,072,181,182 

,183 
RX 30340 DATA 073,185,082,082,085,189,190 



,191 
BI 30345 

,199 
LQ 30350 

,207 
ER 30355 

,215 
PD 30360 

,223 
UX 30365 

,231 
HC 30370 

239 
DN 36375 

,247 
BZ 30386 

' ,255 
MD 30400 
XB 30410 
IH 30415 
KA 30420 
QK 30425 

,104 
RS 30430 

,133 
GP 30435 

,205 
CB 30440 

,162 
PE 38445 
00 30600 
GT 30610 
LG 30615 
LU 30620 
HC 30625 
FZ 30630 
HZ 30635 
XJ 30640 
HK 30645 
DZ 30650 



DATA 089,193,194,195,076,197,198 

DATA 077,201,202,203,078,205,206 

DATA 079,209,210,211,080,213,214 

DATA 087,217,218,219,082,221,222 

DATA 083,225,226,227,084,229,230 

DATA 124,233,234,235,124,237,238 

DATA 248,241,242,243,244,245,246 

DATA 842,249,250,251,082,253,254 

REM MACHINE LANGUAGE FILTER 

FOR MAC=1 TO 38: READ A 

MACHFILTER$(MAC,MACJ=CHRSCAJ 

NEXT MAC: RETURN 

DATA 104,104,133,204,104,133,203 

DATA 133,206,104,133,205,169,128 

DATA 207,166,207,188,127,006,177 

DATA 164,207,136,145,203,198,207 

DATA 000,228,207,208,236,096 

REM DUNGEON FILTER INIT 

FOR a=l TO 15:READ A,B 

DFILTl$C(ll=CHR$(A) 

DFILT2$tQ]=CHR$CBl 

NEXT (1:RETURN 

DATA 666,632,128,835,168,088 

DATA 192,673,664,636,664,084 

DATA 002,070,003,087,066,671 

DATA 616,694,632,118,648,043 

DATA 605,077,008,082,001,076 fl 
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HACK PACK 

Special OFFER 

The Alpha Systems HACK PACK contains all our 

linesl products for making Back-up copies, 

Anoiyzing, Understanding and Protecting your 

Atari programs. It comes complete with Atori 

Protection Techniques (Booli and tJisk I), Advanced Protection Techniques (Bool< and Disk II), The 

Chipmunk, The Scanalyzer The Impersonator and Disk Pack 1 (TOO. Worth over SI 50. Get them all 

for the special pnce of Just $99.95 

Atari Software Protection liechniques Vbl I & II 

These Book and Disk packages detail the most advanced copy protection methods in use today They 
guide you through the metliods used to create the piotection os well as the copying techniques to get 
around them. They include intormotion on Phreoking • Hacking • On-line security • Black boxes • Self- 
destructing programs • Pirate bulletin board systems • Logic bombs • New piracy lows • Hordwaie 
data keys • Weak sectoring (Phantom, Fuzzy and unstable sectors) • Overfilled tracks • CRC errors 
Bonk Select cartridges and MUCH, MCH MORE, The disks include automatic program protectors. 
Protection Scanners directory hiding and more. 
BOOK I and DISK I $24.96 

BOOK II (Advancwi prelection) and DISK II $24.95 
Special Otter, Order Iwtli sel« tor Only $39.95 
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ALPHA SYSTEMS IS constantly innovating to provide more power 
lor your 6-bit Atorls 



CHIPMUNK 

Automotic Disk Back-Up System. Make perfectly running unprotected bock-up copies of hundreds ot 
the most popular Atori programs. Chipmunk's sophisticated programming Automatically finds and 
REMOVES copy ptwecllon from most Atari programs. Back-up even heavily protected programs with 
ease. Finally, a bock-up system that needs no special hardware or skills. 
(It you need o full list of what Chipmunk copies, coil or write tor our free catalog) $34.95 



Scanalyzer Automuticoily scon & analyze commercial programs. Unlock programming secrets and 
learn from the masters $29.95 

ImpsriMiiuitor Cartridge lo Disk back up system. Create running back-up copies of any cartridge 
' ' (up,t0l6K) S29.9S 



"^ CHEAT 

Get more from your games wilh CHEAT Tired of spending days frying fo beaf a game? Tired of gefting 
stucl< jusf wfien you need anoffier life? Cfieat is an innovative new product that gives you ttie chonce 
you need to beat your favorite games. Ctieat v/orks m\\\ tiundreds of Atari gomes to give you 
unlimited lives or power End ftie frustration and get tiours more enjoyment from your games. (Call or 
write Alpha Systems for our free catalog witfi o full list of Itie programs ttiat work wilfi Ctieaf) OHIY $24.95 

BASIC TURBOCHARGER 

NOW for ttie first time a BASIC programmer con get ftie power, (lexibility and incredible speed of 
machine language. BASIC TURBOCHARGEf? is a book and disk package that contains over 1 50 
ready to use machine language routines. Complete instructions stiow how to add them to your own 
BASIC programs to get these features and more: • Smooth Scrolling • Player/fvlissile control • Load & 
Save Picture files • Sorting and Seorching • Special Effects Graphics • Incredible Speed • Much, f^uch 
filore • Over 1 50 programs. You've heard of the power of Assembler, now harness it for your own 
needs. $24.95 

216-374-7469 




PARROT II 

An Ail New Parrot sound digitizer lor your Atari. Parrot tl is 
sophisttcated new hardware device that plugs into your joystick 
port. Poirot II has two inputs. One tor a microphone and one for a 
powered source such as a tape player radio or Comooct Disk. 
The Poweriul Parrot II sofiware lets you record sounds into your computer and play them bock on any 
Atoti. Porrot 11 turns your computers keyboard into a musical instrument with nine different sounds 
covering three octaves each. The sounds can be anything, a dogs bark, a piano, a complete drum 
set, symphony or your own voice. 

Parrot II lets you modify the sounds on a graphic disploy to create brand new sounds ond special 
effects. Best of all, the sounds and voices con be put into your own programs thot con be used on 
any standard Atari. Explore the world of digital sound and music. ONLY $59.95 
Pre-Recorded Sound DIsIc Ivlore pre-recorded sourrds for Parrot $4.95 
WUIROT II Demo Disk (Does not require Parrot to run) $5.00 

^*fSf^ nr\a u aese^UKa " '"s' P"'^'*''' muHi-ployer Invlo gome thai mixes questions 

«Ji3>J fWr-M-KWUIVBK «,i|(, reel gongs {digitized 

"■^ with Parrot). Be the first to identity the songs ond answer the music trivia questions. Pop-N-Rocker 
comes with ttrree data disks and lets you add new questions so it will never gel old. You con use a 
Parrot Sound digitizer to odd new songs too! Use any kind of music from Rock fo Classical to 
Nursery Rhymes. A new concept in entertainment and a perfect add-on for Parrot. $24.95 

COMPUTEREYES & MAGNIPRINT II + 

Turn your computer into a digital portrait studio. This complete pockoge lets | 

you capture, save & print digital images from your Video Camera, VCR 

or TV. COfv!PUTEREYES hardware plugs directly into your joystick ports for 

eosy use. Print your picture on o 6 foot poster $119.95 

ComputerEyes camera system 

Comes complete with everything above, plus a block and white video , ■ - '.-^ ^^ 

camera and connecting coble, $329.95 ■bstf/7/.*;ftf)MO 

Graptitcs 9 Software - Add a new dimension to your COI^PUTEREYES 

pictures - captures images in 1 6 shades of grey $12.00 

Magniprintll + 

Easily the most powerful print program available today Print grophics from almos! any format in 

hundreds of shapes, sizes, and shades. Supports color printing and lets you create giant posters. 

Magniprinl II + lets you stretch and squeeze, invert, add text, adjust shading and much more. 

Works with EPSON, NEC, Citoh, Panasonic. Gemini. Star. Xlvlf^BOt. and compotible printers. f850 

interface or equivalent required). $24.95 

Graphics l^ansformer 

Now you can connbine the most powerful features of all your graphics programs. Create print shop 

icons from Koala pad picture, from a photo digitized with ComputerEyes, or ony picture file. 

Graphics Transformer lets you Stirink, Enlarge and Merge pictures for unequoled flexibility, $22.95 

YOUR ATARI COMES ALIVE 

SAVE fvlONEY Finally on alternative to buying expensive computer odd-ons. Your Atari Comes Alive 
shows you how to built them yourself. This 'How-To' book ond disk package gives you complete 
step by slep instructions and programs needed to built and control these exciting devices and MORE: 
• Light Pen • Light & f^otor Controllers *Alarm Systems • WDice Recognition • Environmental Sensors 
•Data Decoders • More than 1 50 pages Vour Atari Comes Alive $24.95 




GIANT WALL SIZED POSTERS. 



VISA t, MASTERCARD, ORDER BY 
PHONE, OR SEND MONEY ORDER TO: 



ALPHA SYSTEMS 1012 SKYIAND DRiVE MACEDONIA, OH 44056 FREE BONUS: DELUXE SPACE GAMES (3 BOmes 
on Q tlist() Free wliti any order ot 3 or more ilems. include S3.00 shp & iidig (US Conadn) Oiiio res odd 5iy2% sales rox 
Foreign orders add $8.00 sup & hidg. Caii or wrile lor tree coloiog. Cuslomer Service Line (216) 467-5665 M-F 9-3. 
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Reviewed by Matthew J.W. Ratcliff 



Mario Brothers is a faithful conversion of 
the popular 1983 Nintendo coin-op game of 
the same name. This five-year-old game still 
has a lot of charm, despite the fact that Nin- 
tendo has released Super Mario Brothers and 
Super Mario Brothers 2 for their game sys- 
tem. Why is it that Atari is a full five years 
behind the rest of the video game industry? 
It is difficult to get excited about a "new" 
game from Atari that is ancient by current 
standards (seldom does a coin-op video game 
last more than a year), but Mario Brothers 
is such a delightful game that one can get 
fired up about it. 

In the two-player mode, Mario the car- 
penter is joined by his brother Luigi in a com- 
bined effort to rid their home's water pipes 
of some pesky critters. Mario Brothers is a 
running-and-jumping graphics extravaganza. 
It is not an adventure game where one must 
explore room after room, searching for vil- 
lains and treasures. 

Its structure is similar to Donkey Kong, 
where Mario first appeared. The screens are 
all basically the same. The challenges are 
presented by the creatures, and, of course, 
the house is never completely rid of the crit- 
ters. It goes on forever, in the quest for more 
points. The two-player mode, with each play- 
er assisting the other, is a real hoot. 

The screen is filled with platforms, with 
openings that allow Mario to jump from one 
level to the next. Creatures walk out of water 
pipes at the top of the screen, along the plat- 
forms, fall through the openings and eventu- 
ally back into the pipes again at the bottom 
of the display. Each trek through the pipes 
seems to pep up the little buggers as they go 
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ever faster. Mario must run along underneath 
the platforms and jump up at the correct mo- 
ment using his punch to immobilize the crit- 
ter. He may then jump up to that platform and 
kick the varmint off. 

The simplest pests to deal with are the 
Shellcreepers. They can be punched from be- 
low and then kicked off, if Mario doesn't 
waste any time. Eventually these little turtle 
look-alikes will right themselves and begin 
infesting the pipes once again, if Mario daw- 
dles too much. 

Sidesteppers, crab-like creatures, are a bit 
tougher, since they take two punches before 
Mario can give them the boot. Fighterflies 
do not walk, they hop. This makes life even 
more difficult for Mario, since they can only 
be punched while touching a platform. When 
a Fighterfiy has been punched once, it can 
be kicked off. The Slip Ice, a blue pumpkin 
head, likes to freeze the floors. This can make 
for a slippery mess. Fortunately, they need 
be punched only once to be eliminated. If 
Mario punches the icicles as they are formed 
by a Slip Ice, they can be prevented. 

Fireballs are also a hazard. They don't 
burn down the house, but Mario and Luigi 
had best avoid them. These flying, spinning, 
bouncing sparklers can be punched to rack 
up some really big points. The comical look 
on Mario's face when he gets fried is a smash- 
ing effect. 

Coins come bouncing out of the water 
pipes occasionally, to be punched or collid- 
ed with for bonus points. Between some 
phases a bonus screen, filled with coins, will 
appear, permitting Mario a few precious sec- 
onds to collect them. 



BROTHERS 

Atari Corp. 

1196 Borregas Avenue 

Sunnyvale, CA 94086 

(408) 745-2000 

XL/XE Cartridge $19.95 



When things get particularly hurried and 
harried, Mario can hit the POW switch, a 
large button at the bottom center level of each 
screen. When hit, it is equivalent to punch- 
ing every creature on the screen once. It can 
only be used three times per phase, so it must 
be employed judiciously. 

Playing Mario Brothers solo is just another 
video game, an exercise for the wrist. With 
a friend, either in cooperative or "combat" 
mode (try to knock your brother off into a 
creature), this game is an absolute blast to 
play. Mario and Luigi can jump and bounce 
off each other to perform some rather unique 
gymnastic feats in obliterating the litde pests. 

At the start of each phase, when a new 
creature is introduced, a brief show is 
presented, which graphically illustrates the 
proper method of elimination. This is a nice 
touch, allowing a novice to sit down and play 
without any documentation. 

Mario begins with four lives and gets a 
single bonus life at 20,000 points. Beyond 
that, it is simply a quest for more points. 
Graphics and sound effects are stunning. 
There is an occasional flicker of players, 
when a lot of creatures are on the same plat- 
form— limitafions of the Atari's player mis- 
sile graphics. 

Mario Brothers is a good game for one, 
but a fantastic game for two. When two peo- 
ple play this game, it becomes a social event, 
and a lot of good-natured fun is had by all 
who watch and play. As a one-player game, 
it will be fun for only a short while. Graphic 
adventure games provide entertainment for 
the solo gamer through exploration and dis- 
covery, features not to be found in Mario 
Brothers. d 
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By these techniques 

user memory is 

expanded by 60%! 

This gives greater 

capability to the 

already powerful 

Atari XL, 



The Atari XL computer (800XL) contains 
64K of random access memory (RAM). The 
8K BASIC read only memory (ROM) and the 
16K operating system (OS) ROM, however, 
masks 24K of this RAM, making it inacces- 
sible to the user. This is because the 6502 
microprocessor in the Atari can only address 
64K bytes at one time and therefore must 
deselect part of its RAM so it can access the 
BASIC ROM or the OS ROM. This article 
shows how nearly all of the Atari XL's hid- 
den memory can be easily accessed. 

Two techniques are described here for the 
Atari XL computer: 

1. Accessing the hidden memory on a 
single-byte basis, similar to single PEEKs and 
POKES in normal BASIC. 

2. Accessing large sections or banks of the 
hidden memory. Banks of the hidden memory 
(the size of the bank is selectable by the user) 
can be switched into or out of an area of reg- 
ular RAM (the location of this area can also 
be selected by the user). 

Technique #1 allows simple access to the 
hidden RAM for use in data storage, for ex- 
ample. Technique #2 can be used for switch- 
ing in different screen displays (similar to 
page flipping except instead of changing the 
display list screen pointer from one part of 



memory to another, the area of screen 
memory is fixed but is modified by loading 
in a different bank of memory). Different 
large tables of data (for a database program 
or graphics program) or large character 
strings (for word processing) could be 
switched in and out of the normal free RAM 
area. The action all takes place instantane- 
ously since the complicated work is all done 
in machine-language routines. 

By these techniques user memory is ex- 
panded 22K, or by 60 % ! This gives greater 
capability to the already powerful Atari XL 
computer system. 



Single-Byte Access to 
Hidden Memory 

Figure 1 shows a simple breakdown of the 
Atari 64K memory address space. The BA- 
SIC ROM (8K) and the OS ROM (14K, not 
including the I/O port area) can be "turned 
off through the PIA (Peripheral Interface 
Adapter) Port B. (Port A monitors the two 
joystick inputs.) This is performed by setting 
particular bits at address 54017 ($D301) as 
follows: 
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Atari 
Memory 



Bit 


Value Function 





1 OS ROM selected 





OS ROM deselected 


1 


BASIC ROM selected 


1 


1 BASIC ROM deselected 



The normal value for $D301 is 253 which 
has Bit 1 equal to (BASIC ROM on) and 
Bit equal to 1 (OS ROM on). Switching 
these bits enables us to turn off and on the 
ROMs so that we can access the underlying 
RAM. Turning the BASIC and OS off and 
on and accessing the underlying RAM, 
however, must be performed from a machine- 
language routine, since a BASIC routine 
could not be understood if the BASIC inter- 
preter is off— a system crash would occur. 

Listing 1 is a program which enables sin- 
gle-byte access to the Atari XL hidden 
memory. For those memory-conscious in- 
dividuals, the program in its current form 
uses about 2K of memory, but could be 
streamlined down to IK by removal of REM 
statements. 

Line 140 in the program calls the initiali- 
zation subroutine, which sets up the machine- 
language routines. Calling the initialization 
subroutine, GOSUB 30000, does all the setup 
work— nothing else needs to be done by the 
user. Lines 150-200 is a loop which shows 
how the new memory-access routines are 
called. To use the new POKE routine, called 
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ZPOKE, the following is done: 

1. Put the target address in ZAD (in 
decimal). 

2. Put the value to be stored in Z. 

3. Call the subroutine-GOSUB ZPOKE. 



To use the new PEEK routine, 
ZPEEK, the following is done: 



called 



1. Put the target address in ZAD (in 
decimal). 

2. Call the subroutine-GOSUB ZPEEK. 

3. The value of the target address will be 
returned in Z. 

It's as simple as that! The procedure isn't 
much more difficult than using the standard 
"POKE address.value" or 'A=PEEK(ad- 
dress)" in regular BASIC. The subroutines 
and machine-language routines do all the 
hard work. Line 180 in the program zeroes 
out the variable Z between the storing and 
reading steps to prove that the value is indeed 
read from memory. 

Lines 30000 through 31090 are the new 
POKE subroutine, ZPOKE, and Lines 32000 
through 32090 are the new PEEK subroutine, 
ZPEEK. In ZPOKE the value of Z and the 
high and low bytes of the target address ZAD 
are stored directly into the machine-language 



routine in RAM. ZPEEK returns to BASIC 
with the read value in location Z$(l), the first 
byte of the area set aside for the machine- 
language routines. This value is then trans- 
ferred to variable Z for the user. 

In order to prevent a system crash from an 
unexpected interrupt while the BASIC and 
OS ROMs are turned off, the interrupt sys- 
tems (display list, vertical blank, BREAK 
key, data key, serial input and output, and in- 
ternal timers) are turned off temporarily. The 
interrupts are controlled by Locations 16 
($0010), 53774 ($D20E) and 54286 ($D40E) 
in RAM. A value of disables all interrupts. 
After the BASIC and OS are back on, the in- 
terrupts are enabled by putting the original 
values back in Locations 16, 53774 and 
54286. 

The subroutines in 30000 through 32090 
(initialization, ZPOKE and ZPEEK) are 
general routines that can be used in any pro- 
gram (Lines 100-210 only serve as an exam- 
ple of how the subroutines are called). Any 
part of the 64K memory can now be ac- 
cessed, except the 2K I/O area (53248- 
55295). Care should be taken with pages 0-6 
of memory that are used by the OS or areas 
used for the BASIC program, data or screen 
display. (These areas are still accessible by 
the normal PEEK and POKE commands, 
anyway.) 
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Bank Switching of 
Hidden Memory 

Listing 2 is a program which enables the 
switching of banks of memory into or out of 
the Atari XL hidden memory. The program 
in its current form uses about 4K of memory, 
but without REM statements uses only 2K. 

In the program, the size of the hidden 
memory banks, ZBSZ, is user selectable and 
may be from as small as 100 bytes each (al- 
lowing 225 banks) to as large as 10240 bytes 
(allowing two banks). Any size between these 
two limits is acceptable. (Bank size smaller 
than 100 bytes is possible, but the dimension 
of ZB$, the bank address character string, 
would have to be increased in Line 20030.) 
The total number of banks, ZBTOT, is auto- 
matically calculated from the bank size by the 
following equation: 

ZBTOT = INT(12288/ZBSZ) 
+ INT(10240/ZBSZ) 

ZBTOT is the total number of banks that 
can fit into the 12K of hidden memory be- 
low the I/O area and the lOK of hidden 
memory above the I/O area. The banks are 
identified by the bank pointer variable, 
ZPTR, which ranges from 1 to ZBTOT. 

The user also must select the starting ad- 
dress of the target area, ZAD, in regular 
RAM where the banks will switch in and out 
of. Area in regular RAM can be reserved if 
needed by dimensioning a character string 
and locating the starting address by 
"ZAD = ADR(char string variable)." Numer- 
ic arrays can be located by dimensioning a 
one-character string just before the array is 
dimensioned and using "ZAD = ADR(char 
string variable) + 1" to get the starting address 
of the array. 

Shown in Listing 2 is a "page flipping" 
type of example where 22 different display 
banks of 960 bytes each (the GRAPHICS 
screen size) are created, stored into hidden 
memory, and then switched one at a time into 
the screen-memory area in regular RAM. 
Lines 170 through 220 illustrate what is done 
by the user for proper setup of the bank 
switching: 

1. Call the initialization subroutine by 
GOSUB 20000. This dimensions variables 
and loads in the machine-language routine. 

2. Set ZBZ, the bank size in bytes. In this 
example, the bank size is 960 bytes for the 
GRAPHICS screen. 



3. Call the bank address-setup subroutine 
by GOSUB 21000. This calculates and assigns 
bank addresses to string variable ZB$ on a 
high byte/low byte basis. The addresses are 
stored this way, two string bytes per bank ad- 
dress, to conserve memory compared with 
using a numeric array which would have used 
six bytes per address. 

4. Set ZAD, the starting address of the tar- 
get area in regular RAM. In this example, 
the address is the start of screen memory as 
determined by the fourth (low byte of address) 
and the fifth (high byte of the address) bytes 
of the display list. 

5. The bank-switching is now ready to use. 

The bank switching routines are very flex- 
ible in that the target address, ZAD, can be 
changed at any time by the user if he desires 
to switch the hidden memory bank into 
another area of regular RAM. Also, the bank 
address-setup subroutine may be recalled 
during a program with a different bank size 
if the user desires a different hidden memory 
configuration. 

The machine-language routine consists of 
a block move of the memory banks into and 
out of regular RAM. The BASIC and OS 
ROMs are turned off at the start of the rou- 
tine so that the hidden memory can be ac- 
cessed and then back on at the end of the 
routine. The machine-language routine is hil- 
ly relocatable except that it uses Locations 
214 through 218 ($D6-$DA) in page for in- 
termediate data storage. To use the bank 
switching, the user does the following. To 
switch a section of regular RAM out to a bank 
of hidden memory, i.e., store it: 

1. Set the bank pointer, ZPTR, to the 
desired bank (range 1 to ZBTOT). 

2. Call the bank-switch-out subroutine, 
GOSUB ZBNKOUT. 

To switch a hidden memory bank back into 
regular RAM: 

1. Set the bank pointer, ZPTR, to the 
desired bank. 

2. Call the bank-switch-in subroutines, 
GOSUB ZBNKIN. 

Pretty simple! All the hard work is done 
by the subroutines and the machine-language 
routine and occurs instantaneously. 

The bank-switch subroutines, ZBNKIN 
(Lines 22000-22070) and ZBNKOUT (Lines 
23000-23070), are identical except for the 
machine-language calls. First the display is 
turned off temporarily to speed up the move 
operation and prevent flickering of the dis- 



play while the OS ROM is off. The system 
interrupts are then turned off to prevent ac- 
cidental crashing. The machine-language call 
is of the form USR(ADR(MV$),FROM,TO, 
LENGTH) where FROM and TO are ad- 
dresses of origin and destination and 
LENGTH is the number of bytes to move. In 
the case of ZBNKIN the call is 
ZZ=USR(ADR(MV$),ZB,ZAD,ZBSZ). 
The call for ZBNKOUT subroutine is 
ZZ=USR(ADR(MV$), ZAD,ZB,BSZ). Af- 
ter this the interrupts are enabled, the display 
is turned back on, and return made back to 
the main program. 



Summary 



This article has shown how to access the 
22K of Atari XL hidden memory two differ- 
ent ways. Single-byte access or bank switch- 
ing can be accomplished very easily and fast 
through the BASIC subroutines and machine- 
language routines. The subroutines are gener- 
al and flexible for use in any user routines. 
The subroutines of both techniques can be 
combined by using LIST and ENTER. An 
example of using both would be a program 
which has four 4K (GRAPHICS 7) screen 
displays switched in and out by ZBNKIN and 
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ZBNKOUT, and the rest (6K) of the hidden 
memory for general data storage accessed by 
ZPEEK and ZPOKE. 

A further interesting advantage of now be- 
ing able to access the masked RAM is that 
this memory is not accessible to normal BA- 
SIC or the OS and therefore is fully protect- 
ed, i.e., it cannot be accidentally written into. 

FIGURE 1: MEMORY MAP OF THE 
ATARI XL COMPUTERS 



DEC HEX 

00000-40959 0000-9FFF 



40960-49151 A000-B999 



49152-53247 C000-C999 



53248-55295 D000-D799 



55296-65535 D800-FFFF 



FUNCTION 

Free RAM for program, 

data, and screen display 

(pages 0-6 also used by 

OS)-40K 

BASIC ROM (or free 

RAM if BASIC is de- 

selected)-8K 

OS ROM (or free RAM 

if OS is deselected) — 

4K 

Input/Output ports (not 

available as free RAM) 

-2K 

OS ROM (or free RAM 

if OS deselected)- lOK 



USTim 1: BASIC 



10 REM «*» 
26 REM * 
30 REM » 

Uo REM * 
50 REM » 
60 REM » 
70 REM * 
80 REM »** 
90 REM 
120 REM TA 
130 REM DA 
146 G05UB 
IZATIOM SU 

145 PRINT 
I KL HIDDE 

146 PRINT 
5E5 ARE 
6-65535" 
156 PRINT 
UT ZAD 
160 PRINT 
170 GD5UB 



KKKXXKKKKKMXKXKKXMKKKKMXKK 

SINGLE BYTE ACCESS TO » 

ATARI XL HIDDEN MEMORY » 

by Kevin T. Pate * 

COPYRIGHT 1989 » 

BY ANALOG COMPUTING » 

KXXXKKXKXXXXXXXXXXXXKXXXXX 



RGET ADDRESS IS ZAD 
TA VARIABLE IS Z 
30000:REM RAM ACCESS INITIAL 
BROUTINE 

■■HiSINGLE BYTE ACCESS TO ATAR 
N MEMORY DEMONSTRATION" 
IPRINT "HIDDEN MEMORY ADDRES 
40960-53247 AND 5529 

:PRINT "TARGET ADDRESS"; : INP 

"UALUE"; :INPUT Z 

ZPOKE: PRINT "NON POKING UALU 



E INTO HIDDEN MEMORY" 

180 Z=0:PRINT "NOW ZEROING OUT VALUE" 

190 G05UB ZPEEKlPRINT "NOW PEEKING HID 

DEN MEMORY ADDRESS" 

200 PRINT "ADDRE5S=";ZAD,"UALUE=";Z 

210 GOTO 150 

220 REM 

30000 REM RAM ACCESS INITIALIZATION SU 

BROUTINE 

30010 REM ML SUBROUTINES ARE RELOCATAB 

LE 

30020 DIM Z$C50):REM STORAGE AREA FOR 

ML ROUTINES 

30030 REM POKE ML ROUTINE RETURNS UALU 

E TO Z$C1J 

30040 POK=ADR(Z$}+l:REM POKE ML ROUTIN 

E STARTING ADDRESS 

30050 ZPOKE=31000:REM POKE BASIC SUBRO 

UTINE 

30060 PEK=:P0K+17:REM PEEK ML ROUTINE S 

TARTING ADDRESS 

30070 ZPEEK=32OO0:REM PEEK BASIC SUBRO 

UTINE 

30080 REM ML LOADER 

30090 RESTORE 30190 

30100 FOR Z=0 TO 34 

30110 READ ZZlPOKE POK+Z,ZZ 

30120 NEXT Z 

30130 ZHA=INTtADRtZ$3/256) :REM HIGH BY 

TE OF Z$C1J ADDRESS 

30140 ZLA=ADR£Z$)-256»ZHA:REM LOW BYTE 

OF Z$C1) ADDRESS 
30150 POKE PEK+10,ZLA 
30160 POKE PEK+11,ZHA 
30170 RETURN 
30180 REM POKE ML DATA 
30190 DATA 104,162,2,142,1,211 
30200 DATA 162,00,142,600,0000,162 
30210 DATA 253,142,1,211,96 
30220 REM PEEK ML DATA 
30230 DATA 104,162,2,142,1,211 
30240 DATA 174,000,0000,142,000,0000 
30250 DATA 162,253,142,1,211,96 
30260 REM 

31000 REM POKE SUBROUTINE 
31010 ZHA=INTfZAD/2563 [REM HIGH BYTE 
F TARGET ADDRESS 

31020 ZLA=ZAD-256*ZHA:REM LOW BYTE OF 
TARGET ADDRESS 
31030 POKE P0K+7,Z 
31040 POKE P0K+9,ZLA 
31050 POKE POK+10,ZHA 

31060 ZINT = PEEKtl6) :POKE 16,0:P0KE 537 
74,0:P0KE 54286, 0:REM DISABLE INTERRUP 
TS 

31070 ZZ=USR(POKJ :REM CALL POKE ML ROU 
TINE 

31080 POKE 16,ZINT:P0KE 53774, ZINT ! POK 
E 54286, 255:REM ENABLE INTERRUPTS 
31090 RETURN 
31100 REM 

32000 REM PEEK SUBROUTINE 
32010 ZHA=INTCZAD/256) !REM HIGH BYTE 
F TARGET ADDRESS 

32020 ZLA=ZAD-256»ZHA:REM LOW BYTE OF 
TARGET ADDRESS 
32030 POKE PEK+7,ZLA 
32040 POKE PEK+8,ZHA 

32050 ZINT=PEEKC163 :P0KE 16,0:P0KE 537 
74,0:P0KE 54286, 0:REM DISABLE INTERRUP 
TS 

32060 ZZrUSRCPEKJ :REM CALL PEEK ML ROU 
TINE 

32070 Z=PEEKCADRCZ$3) 

32080 POKE 16,ZINT:P0KE 53774, ZINT : POK 
E 54286, 255:REM ENABLE INTERRUPTS 
I 32090 RETURN 
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LISTING 2: BASIC 



10 REM MKMKKMKKKXXKKKKKXKKKKKKKKKKKK 



20 REM * 
30 REM » 
40 REM » 
56 REM » 
60 REM * 
70 REM » 



BftNK SWITCHING OF * 

flTflRI KL HIDDEN MEMORY » 

by Kevin T. Pate » 

COPYRIGHT 1989 » 
BY fiHflLOG COMPUTING » 
80 REM KKKKKKKKKXMXKKKKKKKKXXKKKKKXK 
90 REM 

120 REM U5ER SELECTED BANK SIZE IS UftR 
IftBLE ZBSZ 

130 REM BftNK SIZE IS SELECTABLE FROM 2 
25 K 100 BYTE BANKS MAX., 2 X lOK (102 
40J BYTE BANKS MIN . 

140 REM BANK RAM STARTING ADDRESSES CI 
N HIDDEN MEMORY] ARE IN ZBS 
150 REM BANK POINTER NUMBER (1 TO ZBTO 
TJ; ZBTOT IS TOTAL NUMBER OF BANKS 
160 REM USER SELECTED TARGET RAM START 
ING ADDRESS CIN REGULAR RAM AREA) IS U 
ARIABLE ZAD 

170 GOSUB 20000: REM RAM ACCESS INITIAL 
IZATION SUBROUTINE 

180 REM THIS EXAMPLE WILL SWITCH INTO 
SCREEN MEMORY 22 DIFFERENT DISPLAY BAN 
KS 
190 ZBSZ=960:REM BANK SIZE = 960 BYTES 

FOR GR.O SCREEN 
200 DLIST=PEEKC560)+256»PEEKC5613 :REM 
DISPLAY LIST ADDRESS 

210 ZAD = PEEK tDLIST + 4) +256*PEEK CDLIST+5 
J:REM SCREEN MEMORY STARTING ADDRESS 
220 GOSUB 21000:REM SETUP BANK ADDRESS 
ES BASED ON BANK SIZE 

230 REM CREATE DISPLAYS AND STORE BANK 
S IN HIDDEN MEMORY 

240 POKE 752,l:REM TURN OFF CURSOR 
250 PRINT 



CREATE SCREEN DISPLAYS AND 



STORE IN HIDDEN MEMORY BAN 



G£Bn":F0R N=l TO 1000:NEXT N 

260 FOR 1=1 TO ZBTOT 

270 PRINT "IS-IPOSITION 6,I:PRINT "THIS 
IS DISPLAY BANK tt";I:REM CLEAR SCREEN 
AND PRINT MESSAGE AT VARYING ROW NUMB 

280 ZPTR=I:G05UB ZBNKOUT:REM SET BANK 

POINTER AND STORE SCREEN MEMORY TO BAN 

K 

290 NEXT I 

300 REM NOW SWITCH IN BANKS ONE BY ONE 

, PAUSING BETWEEN EACH DISPLAY 

310 PRINT 



NOW RECALL SCREEN DISPLAYS 



FROM HIDDEN MEMORY BANKS.. 



|i":F0R N=l TO 1000 :N 
320 FOR 1=1 TO ZBTOT 
330 ZPTR=I:GOSUB ZBN 
OINTER AND READ IN B 
RY 

340 FOR N=l TO 10O:N 
350 NEXT I 
360 GOTO 320: REM REP 
370 REM 

20000 REM RAM ACCESS 
BROUTINE 

20010 REM ML SUBROUT 
20020 DIM MOU$C50]:R 
R ML ROUTINE 
20030 DIM ZB$(450I :R 
TARTING ADDRESSES, S 
/LOW BYTE 

20040 ZBNKIN=22OO0: 
BASIC SUBROUTINE 
20050 ZBNKOUT=230OO 
T BASIC SUBROUTINE 
20060 REM ML LOADER 
20070 RESTORE 20130 
20080 FOR ZZ=0 TO 48 



EXT N 

KIN:REM SET BANK P 
ANK TO SCREEN MEMO 

EXT N:REM PAUSE 

EAT DISPLAY LOOP 

INITIALIZATION SU 

INE IS RELOCATABLE 
EM STORAGE AREA FO 

EM HIDDEN MEMORY S 
TORED AS HIGH BYTE 

EM BANK SWITCH IN 

REM BANK SWITCH OU 



20090 READ ZZZ:POKE ADR CMOU$) +ZZ, ZZZ 

20100 NEXT ZZ 

20110 RETURN 

20120 REM ML DATA 

20130 DATA 104,162,2,142,1,211 

20140 DATA 104,133,215,104,133,214,104 
120150 DATA 133,217,104,133,216,104,133 

,218 
120160 DATA 104,170,160,0,177,214,145,2 

16 

20170 DATA 200,208,4,230,215,230,217,2 

02 

20180 DATA 208,242,198,218,16,238 

20190 DATA 162,253,142,1,211,96 
I 20200 REM 

21000 REM SETUP BANK ADDRESSES BASED 

N BANK SIZE 

21010 ZLT0T=INTC12288/ZBSZ) :REM TOTAL 

NUMBER OF BANKS IN LOWER PART OF HIDDE 

N MEMORY 

21020 ZUT0T=INTC10240/ZBSZ) :REM TOTAL 

NUMBER OF BANKS IN UPPER PART OF HIDDE 

N MEMORY 

21030 ZBTOT=ZLTOT+ZUTOT:REM TOTAL NUMB 

ER OF BANKS 

21040 FOR ZZ=0 TO ZLTOT-1 

21050 ZA=4096O+INT(ZZ*ZB5Z+O.5) iREM BA 

NK STARTING ADDRESS 

21060 ZHA=INTtZA/256) :REM HIGH BYTE 

21070 ZLA=ZA-256KZHA:REM LOW BYTE 

21080 POKE ADRCZB$)+2»ZZ,ZHA:REM STORE 
HIGH BYTE 

21090 POKE ADRtZB$)+2*ZZ+l,ZLA:REM STO 

RE LOW BYTE 

21100 NEXT ZZ 

21110 FOR ZZ=0 TO ZUTOT-1 

21120 ZA=55296+INTCZZ*ZBSZ+0.5J :REM BA 

NK STARTING ADDRESS 

21130 ZHA=INTCZA/256J :REM HIGH BYTE 

21140 ZLA=ZA-256»ZHA:REM LOW BYTE 

21150 POKE ADRCZB$)+2*ZLT0T+2*ZZ,ZHA:R 

EM STORE HIGH BYTE 

21160 POKE ADRtZBSJ+2»ZLT0T+2»ZZ+l,ZLA 

:rem store low byte 

21170 NEXT ZZ 

21180 RETURN 

21190 REM 

22000 REM BANK SWITCH IN SUBROUTINE 

22010 POKE 559,0:REM TURN OFF DISPLAY 

22020 ZB=PEEKtADRtZB5)+2»ZPTR-23»256+P 

EEKCADRfZBS)+2»ZPTR-lJ :REM BANK STARTI 

NG ADDRESS 

22030 ZINT=PEEKC16) ;POKE 16,0:POKE 537 

74,0;POKE 54286, 0:REM DISABLE INTERRUP 

TS 

22040 ZZ=USRtADRtMOV$J,ZB, ZAD, ZBSZ) : RE 

M SWITCH BANK RAM INTO TARGET AREA IN 

REGULAR RAM 

22050 POKE 16,ZINT:P0KE 53774, ZINT : POK 

E 54286, 255:REM ENABLE INTERRUPTS 

22060 POKE 559,46:REM TURN ON DISPLAY 

22070 RETURN 

22080 REM 

23000 REM BANK SWITCH OUT SUBROUTINE 

23010 POKE 559,0:REM TURN OFF DISPLAY 

23020 ZB = PEEK CADR CZB$) +2»ZPTR-2)*256 + P 

EEKtADRfZBS)+2*ZPTR-l) :REM BANK STARTI 

NG ADDRESS 

23030 ZINT=PEEKC16) :POKE 16,0:P0KE 537 

74,0:P0KE 54286, 0:REM DISABLE INTERRUP 

ITS 

23040 ZZ=USRCADRCMOU$] , ZAD, ZB, ZBSZ) : RE 
M STORE TARGET RAM IN REGULAR AREA TO 
BANK RAM 

23050 POKE 16,ZINT:P0KE 53774, ZINT : POK 
E 54286, 255:REM ENABLE INTERRUPTS 
23060 POKE 559,46:REM TURN ON DISPLAY 

123070 RETURN (q 
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Reviewed by Matthew J.W. Ratcliff 



Desert Falcon is another variation on the 
never-ending video game concept of "kill or 
be killed, in the quest for more points." Only 
the scenario has changed. Old-time arcaders 
will get a sudden case of deja vu when play- 
ing this game. Has Desert Falcon lived 
another life as ZaxxorO. It seems that the 
characters are different, the scenery changed, 
but the game play is much the same. 

Some really bad guys raided Pharaoh's 
tomb some thirty centuries ago. But Pharaoh 
was avenged when "desert beasts" dispatched 
the thieves, leaving no trace of them, not even 
their camels. However, their loot was scat- 
tered over the sands of Egypt. Is it up to the 
Desert Falcon, with the assistance of a 
joystick-wrenching professional, to save the 
jewels and return them to their shrine? No! 
Nothing so honorable as that. The Desert Fal- 
con is out to steal the jewels once again. 

At the opening screen, the user may select 
one of four difficulty levels. One- or two- 
player modes may be enabled. In the two- 
player scenario, each falcon alternates turns, 
the switch being based on the loss of a life. 
A cooperative two-player mode would have 
been more interesting. 

The game-play screen is a two-thirds over- 
head view. The joystick-controlled falcon may 
hop or fly over the sands, or swim through 
the water obstacles, avoid pyramids and 
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Washington Monument look-a-like obstacles, 
collect treasures and hieroglyphs, and zap all 
the creatures in sight. It seems a bit queer 
to find so much water in the midst of such 
a vast desert. The display scrolls smoothly 
as the bird makes progress along the desert. 
He may fly in one direction only and can- 
not backtrack to pick up missed treasures. 

The Desert Falcon may hop or hover over 
treasures and hieroglyphs to pick them up. 
When three hieroglyphs are accumulated, a 
superpower is enabled with a rapid double- 
press of the fire button. Some will zap all ene- 
mies on the screen, while others will provide 
bonus points or even hinder the player. This 
is the only real depth to the game, beyond 
zapping the other guys. By painstakingly col- 
lecting the right combinations of hieroglyphs, 
useful powers may be amassed for game ad- 
vancement. 

The object of the game is to collect as 
many treasures as possible, while killing as 
many flying, crawling, and burrowing crea- 
tures as possible by shooting arrows (an un- 
limited supply) and avoiding obstacles. To 
move on to higher levels in the game, there 
is an encounter with a "howling sphinx" 
(sounds like something from an old Charlie 
Chan movie). The sphinx must be shot direct- 
ly between the eyes, while avoiding the fire- 
balls it blasts. 



Desert 
Falcon 



Atari Corp. 
1196 Borregas Avenue 
Sunnyvale, CA 94086 
(408) 745-2000 
XL/XE cartridge $24.95 



At higher levels in the game the flying and 
crawling creatures are augmented by "fire 
pots" and dart-shooting "mini sphinxes." 
Naturally, the opponents come in faster and 
in ever increasing numbers. The only other 
obvious difference at higher levels is the color 
change of the sand (green sand?). Immedi- 
ately after a sphinx is snuffed out, there is 
a short period of time for the falcon to col- 
lect treasures, unmolested by all the annoy- 
ing flying and crawling creatures. An extra 
life is earned every 10,000 points, with a max- 
imum of six extras to be held at any one time. 

The Atari XEGS has been on the market 
for over a year now, and Desert Falcon is the 
first joystick game offering from Atari that 
is not simply a repackaged old disk-based 
game or a port from another game system. 
This cut-and-dried theme contributed to the 
video-game market crash of the mid '80s. It 
is time that Atari came out with something 
fresh, new, original, or at least timely; such 
as a port of a coin-op arcade game with a 
copyright less than a couple of years old. 

Desert Falcon has good graphics, cute 
sound effects, and a tired, boring theme. If 
you missed out on Zaxxon from the early days 
of Atari video gaming, and would like a 
replacement for it , Desert Falcon is a good 
substitute. If you are looking for something 
new and refreshing, it won't be found here. C\ 
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When I was a young boy, in 1935, my 
grandfather introduced me to a board game 
using marbles. This game resembled a com- 
bination of regular checkers and Chinese 
checkers. The wooden game board had holes 
drilled for 32 marbles that were placed in the 
form of a cross. The object was to jump all 
the marbles and finish with the last marble 
in the center of the board. As in checkers, 
a marble was removed at every jump. 

Time marched on, and along with my ac- 
quisition of an Atari 8-bit computer came my 
desire to adapt my grandfather's game to the 
computer. Some time later I also found that 
a version of this game was mentioned in the 
Dell Publishing book Hackers by Steven 
Levy, discussing how Bill Gosper at MIT 
successfully designed a computer program to 
solve it. 

The final step in this progression was my 
downloading the Greasy Spoon I.Q. Exami- 
nation program by Robert Beatty from the 
ANALOG Computing Atari Users' Group on 
DELPHI. I.Q. Exam is similar to the origi- 
nal marble game, but has 44 marbles. In one 
form or another, this game has also been 
called Peg Board, Peg Checkers or Hi-Q. You 
might recognize it by one of those names. I.Q. 



Exam contains the logic which I adapted for 
Marble Magic. 

The object of Marble Magic is to jump 
over and remove marbles successively, until 
the final marble (hopefully) lands in the 
center of the board. In this version, the com- 
puter acts as the playing board, as well as 
checking all the moves for validity and keep- 
ing score of the number of moves and the 
number of marbles remaining. 

Type in Listing 1, check it with BASIC 
Editor II on page 54 and save it to disk or 
cassette. When you run Marble Magic, you'll 
first see a title screen, followed by the board 
display. The screen displays 32 marbles, with 
a flashing asterisk indicating the blank space 
in the center of the board. The number of 
tries and the number of marbles are displayed 
near the bottom of the screen. The text bar 
at the bottom is reserved for instructions, 
comments, error messages, etc. Although no 
time limit is used in the game, a simple timer 
shows you how long you have been playing. 
Every count is 15 seconds. 



How to Play 



The marbles are controlled with the 
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The gamers strategy 

is a little complex, 

hut a fundamental 

goal is to clear out 

the comers of the 

cross without leaving 

any marbles behind. 




joystick, but only horizontal and vertical 
movement is allowed. You must jump into an 
unoccupied space, but can do so from any 
direction. Jumping a marble removes it from 
the board. Use the joystick and the fire but- 
ton to select and move a marble. After being 
selected, the marble will be replaced by a 
flashing asterisk. Move the indicator to a 
blank space, and press the fire button again 
to drop the marble. 

As you move around the board, your lo- 
cation will be shown by the asterisk or a mar- 
ble color change. During these moves, the 
program checks against errors and makes cer- 
tain that any jump contemplated will be into 
a blank space. Limits have been set so that 
you cannot move outside the playing area. At 
the end of the game, you will be scored on 
whether you have one marble left in the 
center, one marble left somewhere else, or 
on the number of marbles (up to ten) left on 
the board. Play ends when no more jumps 
are possible. You can quit and start again by 
pressing the "Q" key. I have added a litde 
surprise if you get the last marble in the 
center. 

The game's strategy is a littie complex, but 
a fundamental goal is to clear out the cor- 
ners of the cross without leaving any marbles 
behind. Also, you should arrange your moves 
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SO that a jump puts you in a good position 
for another jump (this is generally, but not 
absolutely, true). It also helps to look ahead 
about four or five moves. To get you started, 
here is the first five moves of a winning pat- 
tern: 19.17, 6.18, 13.11, 27.13, 10.12. The moves 
are based on numbering the holes horizon- 
tally, starting from the upper left. The start- 
ing blank space in the middle would then be 
number 17. If you have a low frustration 
coefficient, the complete winning sequence 
is given at the end of this article. 

How It Works 

Marble Magic uses a GRAPHICS 1 screen 
with a DLI message bar in GRAPHICS for 
prompts. GRAPHICS 1, for the play field, is 
particularly useful because it lets you use 
different colors for the marbles, the title and 
the playing board, while at the same time 
providing enough space to draw the marbles 
on the playfield plus room for everything 
else. Redefined characters are used for the 
marble and the playfield. 

The program begins with the break-key- 
disable routine followed by initialization, and 
then the installation of the new character set 
and the display-list modificadon for the 
prompt line. This is followed by a brief 
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credits screen after which the playing board 
is set up. You can skip the credits screen by 
changing Line 110 to GOSUB 1210. 

In GRAPHICS 1 a PRINT to the screen 
via Channel 6 places a character on the 
screen. The redefined "@" character is used 
for the marble. The choice of a regular or in- 
verse "@" is critical for the decision as to 
whether the marble has been selected for a 
move, whether it is present at a board loca- 
tion, etc. This information is given in great- 
er detail in the article "Hidden Graphics" by 
Gregory Kopp in Compute! 's Second Book 
of Atari Graphics. 

Following the drawing of the board, a 
bucket brigade of GOSUBs starting at Line 
130 is used to control the joystick, select a 
marble, check moves, increment the score 
and check for the end of the game. Having 
these at the beginning gives you all the speed 
you need for a board game such as this. 

The main game loop is between Lines 210 
and 240. Here the joystick movement is 
checked. If the joystick is not being moved, 
the board is checked to ensure that a marble 
is selected. The locator asterisk (Line 250) 
is also flashed to indicate an empty space. 
The PLOT (rather than the PRINT) com- 
mand for placing the marble is necessary to 
put the marble in the correct location, since 
the PRINT after the LOCATE statement 
repositions the cursor. 

If the joystick is moved, the current board 
position is shown by the change in the mar- 
ble color. In graphics mode 1, the LOCATE 
variable (Z in this case) returns an ATASCII 
character whose corresponding code number 
is an integer from to 255. Adding 128 
changes the marble color or flashes the 
asterisk. 

Movement limits are established in Lines 
320 through 340. Once a marble is selected, 
a move location is chosen followed by error 
checking beginning at Line 430. The error 
checking determines any illegal move at- 
tempts, such as moving into an occupied 
space or jumping more than one marble. Af- 
ter the computer checks for errors, the mar- 
ble count and the number of jumps are 
totalled in Lines 600 through 640. 

Everything is kept in order on the screen 
and in the message bar with the message fix 
and screen fix subroutines in Lines 1100 and 
1110, respectively, 
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The game relies on the LOCATE statement 
to indicate the board position or absence of 
the marbles (the @ character) and to indicate 
a change in the marble position (OX=old X, 
NX=new X, etc.). At the conclusion of a 
jump, when a marble has been removed, the 
entire board is checked for its status (using 
X and Y position coordinates and LOCATE) 
beginning at Line 660. If further jumps are 
possible, control is returned to the joystick 
in the main loop. However, if no marbles re- 
main next to each other, making further 
jumps impossible, the final score is displayed 
along with a comment on your game. 

May you make all the right moves! 

A winning series of moves: 
19.17, 6.18, 13.11, 27.13, 10.12, 13.11, 8.10, 1.9, 
3.1, 16.4, 1.9, 28.16, 16.4, 4.6, 21.23, 7.21, 
24.22, 21.23, 26.24, 33.25, 31.33, 18.30, 
33.25, 6.18, 18.30, 30.28, 28.16, 17.5, 15.17, 
24.10, 5.17. 

Earl Hill was an analytical chemist and 
statistician prior to retirement. A self-taught 
BASIC programmer, his interests include util- 
ities, graphics and games. He lives in Erie, 
Pennsylvania. 
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CLSN Pascal 

for the Atari! 30XE 



o Editor and compiler are 

all in one complete, 

integrated programming 

environment - No program 

swapping 
o Compiles at 1000 lines per 

minute 
o Generates 6502 machine 

code, not pseudo code 
o Programs can be compiled 

and run from memory, or 

stored to disk and run on 

their own 
o Arrays, records, files, 

and sets are all supported 
o Recursion and dynamic 

memory allocation are 

supported 
o Interface to machine 

language subroutines 
o 48k of code, 48k of 

dynamic memory, and a ISk 

stack are available 
o Demonstration programs 

included 

To order, send $39.95 to: 
CLSN Software 
10 Arlington Place 
Kearny, NJ 07032 

NJ residents, add 6% sales tax, Canadian 
residents add 55 . 00 shipping and handling 
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10 REM XMKMKXICKKKKKKKXXKKKKKXKKXKKXIC 

20 REM * MftRBLE MAGIC * 

36 REM * by Earl Hill * 

46 REM * » 

56 REM » COPYRIGHT 1989 » 

66 REM * BY ANALOG COMPUTING » 

79 REM KXXKKXKXXXXXXXXKKXKXXXXKXKXXX 

86 REM 

166 POKE 566,PEEK(566J+12:G05UB 1556:G 

05UB i666:REM BREAK & INITIALIZATION 

lie G05UB li46:REM CREDIT5 & GAME BOAR 

D 

126 GOSUB MFIK:P05ITI0H C46-LEN tMl$J J / 

N2,N6: ? «N6;M1S 

130 GOSUB 210:REM JOYSTICK CONTROL 

146 GOSUB 388: REM SELECT MARBLE 

156 GOSUB MFIKlPOSITION t40-LEN CM2$) ) / 

N2,N0:? «N6;M2$ 

160 GOSUB 210:REM JOYSTICK CONTROL 

170 GOSUB 436:REM CHECK MOUE 

180 GOSUB 610:REM INCREMENT COUNT 

196 GOTO 666! REM CHECK END OF GAME 

266 REM tivj.-ii*ch:mhi];h:hTT 

216 GOSUB SFIKlPOKE 752, Nl : LOCATE XK+0 

K,YY+OY,Z 

220 COLOR N10:PLOT XK+OK,YY+OY 

236 POSITION KK+OK, YY+OY:? ttN6;CHR$CZ+ 

128J ; 
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240 5T=5TICK(N03 :IF 5T=15 
|l=NO THEN RETURN 
250 IF Z=32 THEN COLOR Nl 
YY+OY:COLOR 160:PLOT XK+0 
260 KEY=PEEKt754J :POKE 76 
47 THEN RUN 

270 TIME=INTttPEEKti8J»65 
256+PEEKC20)3/9OO) :P05ITI 
6;TIME 

280 IF 5T=15 THEN 240 
290 POKE 77, NO 
300 SOUND NO,2O,N10,N1O:F 
:NEXT D:50UND NO, NO, NO, NO 
310 POSITION xx+ox,yy+oy: 



AND 5TRIGCN0 

6:PL0T XX+OX, 
X,YY+OY 
4,255:IF KEY= 

536+PEEKtl93W 
ON N0,N3:? ON 



OR D=N1 TO 20 
? «N6;CHR$CZ) 



320 NX=0X+C5T=N7)»N2-t5T=Nll)*N2 

330 NY=0Y+t5T=13)*N2-C5T=14)»N2 

340 AX=ftB5tNX) :ftY=ftB5tNYJ :IF AX>N6 OR 

ftY>N6 OR ftX*ftY>16 OR Ci:iX = N4 AND AY = N4) 

THEN 360 
350 OX=NX:OY=NY 
360 GOTO 210 
370 REM ».mJ>f!M;nTTa 

380 G05UB SFIX:LOCflTE XX+OX, YY+OY, Z : OZ 
=Z+128 

390 IF CHR$CZ)<>"B" THEN GOSUB MFIX:PO 
5ITI0N f4O-LENCM3S3J/N2,N0:? ttN6;M3$;: 

GOSUB hfix:goto buzz 

400 POSITION XX+OX, YY+OY:? »N6j" "i:PH 
=OX:PY=OY 

410 sound n0,2o,n1o,n1o!for d=n1 to 50 
:next d:sound no, no, no, no: return 

420 REM ■HiH*iM;['im 

430 GOSUB SFIX 

440 IF PX=OX AND PY=OY THEN GOSUB MFIX 

:P0SITI0N C4O-LENCM4$n/N2,N0:? ttN6;M4 

$;:GOSUB PFIX:G0TO BUZZ 

450 LOCATE XX+OX, YY+OY, Z : 0Z=Z+128 

460 IF CHR$CZJ <>"■■■ THEN 570 

470 IF PXOOX THEN 520 

480 CY=CPY + 0Y)/N2:IF CY/N20INT (CY/N2) 

THEN 570 
490 AY = ABSCPY-OYJ :IF AYON4 THEN 570 
500 LOCATE XX+OX, YY+CY,Z:POSITION XX+0 
X,YY+CY:? ttN6;" "j:IF CHR$CZ)<>"e" THE 
N 570 

510 GOTO 580 
520 IF PYOOY THEN 570 
530 CX=tPX + 0X)/N2:IF CX/N20INT CCX/N2) 

THEN 570 
540 AX = ABStPX-OXJ :IF AXON4 THEN 570 
550 LOCATE XX+CX, YY+PY, Z : POSITION XX+C 
X, YY+OY:? «N6;" ";:IF CHR$CZ3<>"e" THE 
N 570 

560 GOTO 580 

570 GOSUB MFIX:P0SITI0N C40-LEN tM5$J J / 
N2,N0:? ON6;M5$; : GOSUB PFIX:G05UB HFIX 
:GOTO BUZZ 

580 POSITION XX+OX, YY+OY:? ttN6;"G"; 
590 SOUND N0,2O,N1O,N10:FOR D=N1 TO 50 
:NEXT D:SOUND NO,NO,NO,N0:RETURN 

1600 REM ■<:N!u:ij;f.t.iii:f 

610 C0UNT=C0UNT+N1 

620 POSITION N5,18:? »N6jC0UNT; 

630 POSITION 18,18:? ON6 J 32-COUNT; " " 

640 RETURN 

650 REM KiiiHiiM^MtMiUrfiTSM 
660 GOSUB SFIX:EX=N10:EY=9:GOSUB 720 
670 EX=N4:EY=9:G0SUB 720 
680 EX=N10:EY=N3;GOSUB 720 
1590 EX=16:EY=9:G05UB 720 



700 EX=N10:EY=15: GOSUB 720 

710 GOTO 910 

720 FOR Y=-N2 TO N2 STEP H2 

730 FOR X=-N2 TO N2 STEP N2 

740 LOCATE EX+X,EY+Y,Z 

750 IF CHR$fZ)<>"G" THEN 880 

760 IF tEX+X<N6) OR tCEY<N7 OR EY>N11) 

AND EX+X<N12) THEN 790 
770 LOCATE EX+X-N2, EY+Y, Z : IF CHR$CZ)<> 
"Q" THEN 790 
780 LOCATE EX+X-N4, EY+Y, Z : IF CHR$CZ)=" 

■■ THEN 890 
790 IF CEX+X>14) OR CCEY<N7 OR EY>N11J 

AND EX+X>N8) THEN 820 
800 LOCATE EX + X + N2,EY + Y,Z:IF CHRS (ZJ <> 
"G" THEN 820 
810 LOCATE EX+X+N4,EY+Y,Z:IF CHRSCZ)=" 

" THEN 890 
820 IF tEY+Y<N5) OR ttEX<N8 OR EX>N12) 

AND EY+Y<N11J THEN 850 
830 LOCATE EX + X, EY + Y-N2, Z : IF CHR$ (Z) <> 
"G" THEN 850 
840 LOCATE EX+X, EY+Y-N4, Z : IF CHR$CZJ=" 

" THEN 890 
850 IF CEY+Y>15) OR ttEX<N8 OR EX>N12J 

AND EY+Y>N7J THEN 880 
860 LOCATE EX+X, EY+Y+N2, Z : IF CHRS CZJ <> 
"G" THEN 880 
870 LOCATE EX+X, EY+Y+N4, Z : IF CHR$CZ)=" 

" THEN 890 
880 NEXT X:NEXT Y:RETURN 
890 POP :GOTO 120 
900 REM 03MSEai 
910 SC=32-C0UNT 

920 GOSUB MFIX:P05ITX0N N4,N0:? ttN6;"Y 
ou reMoued all but ";SCj" MarbleCs)"; 
930 FOR D=N1 TO 500:NEXT D 
940 GOSUB SFIX:IF SC=N1 THEN LOCATE XX 
,YY,Z:IF CHR$CZ)="e" THEN Dj^-'HUHKi]" 
:G0T0 1070 

950 IF SONIO THEN SC = N10 
960 RESTORE lOSO 

970 FOR N=N1 TO SC:READ D$ : NEXT N 
980 SOUND NO,N0,N0,NO:SETCOLOR N4,N0,N 
0:SETCOLOR N2,N8,N4 

990 GOSUB MFIX:POSITION Nil, NO:? ttN6;" 
Your gaMe: ";DS; 
1000 FOR DE=1 TO 1OO0:NEXT DE 
1010 GOSUB MFIX:POSITION Nil, NO:? ttN6; 
"Another gane? CY/NJ ■■; :G05UB 1020:IF A 
NS$="Y" THEN RUN 

1020 OPEN ttNl,N4,N0,"K:":P0KE 764,255: 
POKE 702,64:POKE 694,N0:GET «N1,A:CL05 
E ttNl:IF A<>78 AND A<>89 THEN 1020 
1030 ANS$=CHRSCA) :IF ANS$="N" THEN POP 

:GRAPHICS 0:END 

1040 RETURN 

1050 DATA OUTSTANDING. r^TOTTTTn .verg g 

ood, good, average, fair, poor, ver;^ poor,? 

ad, horrible 

1060 REM ».iilH;i>M:li5K:«l!BIM 

1070 SOUND N0,50,N8,15:F0R N=N1 TO 20: 

FOR L=N1 TO N10:SETCOLOR N2, NO, L : 5ETC0 

LOR N4,N0,L:NEXT L:NEXT N:GOTO 980 

1080 GOSUB sfix:position XX+PX, YY+PY ; ? 

«N6j"G"; : RETURN 
1090 GOSUB SFIX:P05ITI0N XX+OX, YY+OY : ? 

»N6;CHR$tOZ); :RETURN 
1100 POKE 88,L0:P0KE 89,HI:P0KE 752, Nl 
:POSITION NO, NO:? ttN6;BL$; :RETURN 
1110 POKE 88,L01:P0KE 89,HI1:P0KE 87, N 
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1: RETURN 

1120 SOUND NO,50,H2,N10:FOR D=N1 TO 5fl 
:NEXT D:50UND NO, KO, NO, NO : FOR D=N1 TO 
SOeiNEXT D;P0P ;G0T Q 120 

1130 REM ■H;H'>*i--M 

1148 POKE 87,Nl:P0KE 710,H2;POKE 712, 
112:P0KE 705,200!P0KE 752, HI 
1150 COLOR 64:PL0T NO,N0:DRAMTD 19, NO: 
DROWTO 19,19:DRAWT0 NO, 19 : DRflWTONO^NO 
1160 POSITION N2,N4:? ttN6;" I:,HJ!»U:FI 

1170 POSITION 9,N10:? ttN6;"BY'" 

1180 POSITION N4,15:? «N6;'" earl hill" 

1190 FOR D=N1 TO SOOlNEKT D 

1200 COLOR 125:PL0T NO, NO 

1210 POKE 756,ST6RT/256 

1220 REM ■iIiMff;1!l;a:Iir:T!l« 

1230 POKE 559, NO 

1240 POKE 87,Nl:P0KE 752, Ni : 5ETC0L0R N 

4,N0,N0:SETC0L0R N2, 13, N4 : SETCOLOR Nl, 

13,N12!REM SETCOLOR N3,N4,N8 

1250 POSITION N1,N0:? «N6;"S2 l'HJ!»JiL' 

1260 Xrl6:Y=N12:F0R DX=N3 TO X STEP N2 

IFOR DY=N8 TO Y STEP N2 

1270 POSITION DYjDX!? «N6; "Q" : NEXT DY: 
NEXT DX 
1280 X=N12iY=16:F0R DXrN7 TO X STEP N2 

IFOR DY=N4 TO Y STEP N2 

1290 POSITION DY,DX:? «N6 J "G" ; NEXT DY ! 
NEXT DX 
1300 X=N10:Y=16:FOR DX=N8 TO K STEP N2 

:FOR DY=N4 TO Y STEP N2 

1310 POSITION DY,DX:? «N6j"P":NEKT DY : 

NEXT DX 

1320 X=:14:Y = N12:F0R DX = N4 TO X STEP N2 

IFOR DY=N8 TO Y STEP N2 

1330 POSITION DY,DX:? «N6; "H" : MEKT DY: 

NEXT DX 

1340 X=15:Y=Nll:F0R DX=N3 TO K STEP N2 

IFOR DY=9 TO Y STEP N2 

1350 POSITION DY,DX:? ttN6; "E^" : NEXT DY : 

NEXT DX 

1360 X=N11:Y=15:F0R DX=N7 TO X STEP N2 

IFOR DY=N5 TO Y STEP N2 

1370 POSITION DY,DX:? «N6;"K":NEXT DY : 
NEXT DX 

1380 POSITION N7,N6!? «N6 J '■ + ": POSITION 
13, N6:? «N6;",":P0SITI0N N7,N12:? ttN6 

1"S":P0SITI0N 13,N12:? «N6; 

1390 POSITION N7,N2:? ttN6; POSITION 

N3,N6:? nN6;'"":P0SITI0N 13, N2:? »N6; 
"$":P0SITI0N 17, H6:? ttN6;"$" 
1400 POSITION N3,N12:? »N6; ", " : POSITIO 
N N7,16:? ttN5;",":P0SITI0N 13,16:? ttNS 
;"+":POSITION 17,N12:? «N6;"+" 

1410 POSITION N8,N2:? ttN6j" ■':POSI 

TION N4,N6:? ttN6;" "iPOSITION 14, N6: 

? «N6J" '■ 

1420 POSITION N4,N12:? «N6;" ":POSIT 

ION 14,N12:? «N6;" '^POSITION N8,16: 

? «N6;" " 

1430 FOR Y=N7 TO N11:P0SITI0N N3,Y:? tt 

N6;"&":NEXT Y:F0R Y=N3 to N5:P0SITI0N 

N7,Y:? «N6;"&":NEXT Y 

1440 FOR Y=13 TO 15:P05ITI0N N7,Y:? «N 

6;"&":NEXT Y:FOR Y=N3 TO N5:P0SITI0N 1 

3,Y:? «N5;"&":NEXT Y 

1450 FOR Y=N7 TO N11:P0SITI0N 17, Y:? tt 

N6;"&":NEXT Y:FOR Y=13 TO 15 : POSITION 

13, Y:? «N6;"&"':NEXT Y 



1460 POSITION N10,9:? ttNSj" " 

1470 POSITION NO, 18:? «N6;"Grys" 

1480 POSITION N10,18:? «N6 J "Carbles" 

1490 POSITION NO,Nl:FOR X=N0 TO 19:? « 

N6;"tt"; :next X 

1500 POSITION NO,20:FOR X=NO TO 19:? tt 

N6;"^"; :NEXT X 

1510 POSITION N0,23:FOR X=NO TO 19:? » 

N6;"«"; :NEXT X 

1520 POKE 559,34 

1530 RETURN 

1540 REM ■H:H# fi1^t/ ;TgTin 

1550 DIM D$C123 ,MUCHR$C28) ,BL$C40J ,M1$ 

C23) , M2$ C213 , M3$ C22J , M4$ C18) , M5$ C15) , A 

NS$C1] 

1560 XX=1O:YY=9:PFIX=1O80:HFIX=1O90:BU 

ZZ=1120 : MFIX=11O0 : 5FIX=1110 : N0=0 : Nl=l : 

N2=2:COUNT=N0 

1570 N3=3:N4=4:N5=5:N6=6:N7=7:N8=8:N10 

=10:N11=11:N12=12 

1580 BL$ = " ":BL$t39J= BL$ C2) =BL5 

1590 Ml$="Select Marble to wove -•■ 
1600 M2$="Select hole to fill -" 
1610 M3$="Must select a warble -■■ 
1620 M4$="Marble replaced..." 
1630 M5$="IHegal Move!!!" 

1640 RETURN 

1650 REM ■H;M!r:TmiJ;»-HM;[il'J^ 

1660 RESTORE 1670:F0R I=N1 TO 28 : READ 

Y : MUCHR$ CIJ =CHR$ CYJ : NEXT I 

1670 DATft 104,169,0,133,205,168,169,22 

4,133,206,177,205,145,203 

1680 DATA 200,208,249,230,204,230,206, 

165,206,201,228,208,239,96 

1690 POKE 559,N0:START=CPEEKfl06J-8J»2 

56;P0KE 756, START/256 

1700 SHIGH=START/256:SLOW=N0:POKE 203, 

SLOW:POKE 204,SHIGH 

1710 Z=USRtADRtMUCHR$)) 

1720 REM ■;lJ.i;<J<:i*>i!n;M.*<J;l.i 

1730 RESTORE 1760 

1740 READ X:IF X<N0 THEN 1860 

1750 FOR Y=N0 TO N7:READ Z:POKE START+ 

X«8+Y,Z:HEXT Y:GOTO 1740 

1760 DATA 3,255,0,0,0,0,0,0,0 

1770 DATA 4,0,0,0,248,8,8,8,8 

1780 DATA 5,0,0,0,0,0,0,0,255 

1790 DATA 6,8,8,8,8,8,8,8,8 

1800 DATA 7,0,0,0,15,8,8,8,8 

1810 DATA 11,8,8,8,248,0,0,0,0 

1820 DATA 12,8,8,8,15,0,0,0,0 

1830 DATA 13,0,0,0,255,0,0,0,0 

1840 DATA 32,0,60,94,94,78,98,60,0 

1850 DATA -1 

I860 POKE 559,34:P0KE 756 , START/256 

1870 REM ■ >> ti J w\a mvfm:m.-i<ii} ^ ^ : ■ 

1880 POKE 559,N0:GRAPHICS NO 

1890 DL=PEEKC560)+PEEKC561J»256+N4 

1900 POKE DL-N1,70 

1910 FOR H=DL+N2 TO DL+21:P0KE X,N6;NE 

XT X 

1920 POKE DL+23,N6:P0KE DL+24,N6 

1930 POKE DL+25,65:P0KE DL+26 , PEEK C560 

):POKE DL+27,PEEKC561J 

1940 POKE 756,START/256:P0KE 559,34 

1950 SCRH=PEEKC88)+PEEKC89)»256 

1960 HI=INTCCSCRN+21«20)/256) :LO=CSCRN 

+ 21*20) -CHH*256J 

1970 HI1=INTCCSCRN)/256J : L01=SCRN- CHIl 

»256) 

1980 POKE 20,N0:P0KE 19,N0:POKE 18, NO 

1990 RETURN 
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continued from page 9 
State-of-the-art graphics meant slowing pro- 
gram operation and/or cutting the database 
drastically. 

Saying It With Pictures 

However, thanks to the development of bet- 
ter programming techniques and more 
sophisticated program design (spurred on by 
the demands of the market), we eventually 
got crude graphics in our adventures- 
pictures to go with our words. (The "old- 
timers" among you will remember the earli- 
est Scott Adams S.A.G.A graphic adventures 
and the pioneering efforts of Sierra Online 
in this area.) The graphics weren't much to 
look at (some were nothing more than line 
drawings), but, for those who needed or 
wanted pictures, even line drawings were bet- 



The Sales "Picture" 

But I digress. Why are graphics games 
almost all you see in the marketplace? The 
direct answer is that they sell better— which 
is exactly what I'm told by people like Rober- 
ta Williams at Sierra Online, Gary Carlston 
at Broderbund and David Albert at Electronic 
Arts. These people know what they're doing, 
to be sure, so we can believe them. 

Now, let's move a step or three farther. Wliy 
do these games sell better? Getting back to 
the T'V/book parallel, I think that the popular- 
ity of graphics adventures owes a lot to the 
same thing that made audio-visual entertain- 
ment more popular than books: ease of use. 

I have of course ruffled some feathers by 
now. If you weren't upset by my implied 
(though not intended) condemnation of TV, 
many of you are probably sure that I'm call- 



mand as the fact that the capability was there. 
Given a machine with graphics capabilities 
like the Atari 800 (or, for that matter, the ST), 
software designers and programmers natur- 
ally took advantage of that capability, sim- 
ply because it was there. There's nothing 
wrong with that. 

"A Picture Can Kill a Thousand 
Words" 

However, fancy graphics can be used to 
hide poor game design, providing an easy out 
for game creators. Dazzling graphics mean 
less pressure to create more challenging 
games and less need for "minor" details such 
as plot and character development. This 
results in games that appear to be brilliant. 



There are more than a few parallels between 

the movement of adventure gaming toward 

graphics and the displacement of hooks and 

radio by television and movies. 



ter than nothing. 

Then came graphics-oriented computers, 
such as the Atari 8-bit machines and the 
Commodore 64. These accelerated the trend 
toward graphics in text adventures, and be- 
fore long almost nobody but Infocom could 
turn a profit on the text-only adventure 
market. 

It wasn't for lack of trying. Broderbund, 
for instance, published text-only games previ- 
ously released by others, as well as original 
text adventures created by subsidiaries, as late 
as 1987. But such games died in the market- 
place, while lavishly illustrated and animat- 
ed adventures grabbed the lion's share of the 
market. 

Eventually and inevitably, even Infocom 
added graphics to its adventures. Some text- 
adventure purists of my acquaintance were 
more than a little unhappy with this develop- 
ment, but the conventional computer-game 
marketing wisdom dictated that only games 
with graphics could find success in the mar- 
ketplace. 

BO 



ing those who prefer graphic adventures 
mindless illiterates. 

I'm not saying that. But it is a fact that a 
game with pictures is far easier to play— for 
most people— than a game that forces you to 
create your own pictures. And, on an entire- 
ly subjective level, the reason such a game 
is easier to play is the fact that the vast majori- 
ty of us just don't like to read. ("Us" in this 
sense is used in the editorial sense— I love 
to read.) 

But this is not the only reason why graph- 
ic adventure games sell better than text-only 
adventures. Actually, easier access is more 
of a reason for why text-only adventure 
games not selling as well as graphics games. 
The reasons why graphic adventure games 
sell well have to do more with why they exist. 

Which brings us to the core of the discus- 
sion. 

"Because It Was There" 

Graphics games originated, in my subjec- 
tive opinion, not so much due to market de- 



but which depend more on developed tech- 
nical abilities than on creativity. 

Without naming names and hurting the 
feelings of a number of game designers, pub- 
lishers and players of my acquaintance, I'll 
just say that several of today's leading graphic 
adventure/role-playing games pale after a 
couple hours of play, thanks to their repeti- 
tion and lack of challenge. (Or, if you prefer, 
lack of creativity and work in design.) All the 
fun is in learning to play the game and ex- 
ploring the environment; after that, there's lit- 
tle more to do than work your way through 
the same kinds of challenges time and again, 
to earn the rewards of seeing more glitzy 
graphics and picking up points or "gold." 

(For those who enjoy repetitiousness of 
such games, a far from flattering image 
comes to mind: Imagine a spoiled child 
demanding candy bars for breakfast.) 

The bottom line and summary of my cri- 
tique is this: The state of the art of game de- 
sign has gone downhill. The technology has 
advanced, but it's being used as an easy way 
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out, rather than as a springboard to greater 
creativity. Thus, in levels of creativity and 
challenge, computer adventure game design 
and implementation has gone to seed. 

Not all graphic adventure games suffer 
such decadence. There are still adventure 
gaming challenges out there. But the trend 
is set, and too many designers, programmers 
and publishers are following it. 

Still, they can't bear all the responsibility; 
you may remember that one reason such 
games are published is because our neo- 
illiterate society encourages this kind of en- 
tertainment. 

One Designer's Approach 

Since I didn't name the games that are the 
result of the "easy way out," I won't name 
the games I pick as bearing both state-of-the- 
art technology, design and creativity; it 
wouldn't be fair. However, I will modesdy 
cite my own text-graphics adventure game, 
Gateway, as an example of the latter. It's out 
of production (the publisher folded), so I 
don't have any reservations in using it as an 
example, especially since it received almost 
universally positive reviews. 

And I'll note that I'm not merely praising 
my design, but also the sophisticated parser, 
database and other program elements, which 
offered far more than the usual four or six 
branches for a given input at any given point. 
(The possibilities varied and grew as the 
characters grew.) The game offered 
verisimilitude of the real world in terms of 
a plot and character development on the part 
of the player, as well as that of other charac- 
ters in the game. If you acted like a jerk, 
someone remembered it and acted according- 
ly later. If you acted accordingly, certain 
things went your way that wouldn't have 
otherwise. (Of course, there were rewards for 
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jerks and disappointments for nice guys, too, 
as in real life.) 

The game had graphics in both the Macin- 
tosh and ST versions, but these did not car- 
ry the story. Instead, they supplemented the 
descriptions and offered an occasional break 
from the text. From my viewpoint, they were 
there for the same reasons that most novels 
published in the 19th century and the first half 
of the 20th century carried a score or so il- 
lustrations. From the publisher's viewpoint, 
they were there because graphics adventures 
were selling better than straight text ad- 
ventures. 

And Gateway included all the traditional 
elements of adventure games: a goal (which 
game play reveals and which you have the op- 
tion to pursue or not); scoring; and tasks to 
perform and objects to find, preparatory to 
achieving certain goals associated with the 
quest. 

But even with all this, the emphasis was 
still on creating a recognizable plot with 
malleable characters— and this includes the 
player as a character. And I'm not talking 
simple and unrealistic hit and experience 
points here, but true personality traits! I did 
not forego true storytelling in the adventure 
(which is what I fault most contemporary 
designers for doing). 

I also emphasized a consistency of struc- 
ture which dictated that nothing existed by 
gratuitous chance or for the purposes of mak- 
ing the game/story easy to write (a hallmark 
of good fiction in any media). 

Where Do We Go From Here? 

All of which describes exactly where 
graphic adventure game design could— and 
should— be today. And, considering the pow- 
er of today's computers, graphic adventure 



games could be even better than Gateway. 
Unfortunately, graphics make it all too easy 
to toss plotting, character development, 
challenge, and true creativity out the window. 
And I don't think we'll see many more of the 
games that don't use graphics as a crutch until 
gamers are gorged on the graphics feast and 
begin demanding more by not automatically 
snapping up adventure games because they 
contain graphics. We'll see. . .. 



A Better Way 



In the meantime, another interesting pos- 
sibility looms large on the horizon: hyper- 
text fiction. While hypertext is an overused 
buzz concept (and buzzword), being little 
more than a system of files linked in relational 
fashion, it presents enormous potential. Com- 
bined with graphics technology and the power 
and memory of newer computer systems, text 
that is organized in hypertext fashion and 
linked to graphics in the same manner can 
provide the gamer with the best of both 
worlds: pictures that both entertain the play- 
er and support fully developed stories. 

In fact, a new company is engaged in creat- 
ing just such adventures— and I'm certain that 
they're not the only one. So, more interest- 
ing things are on the way. Just wait and while 
you're waiting, read a few novels. 

Michael A. Banks is the author of three 
science fiction novels, a children 's book and 
sixteen non-fiction books. He's also written 
some 900 magazine articles, a few dozen 
short stories, radio scripts and a few catchy 
advertising slogans. His works include The 
Odysseus Solution (a science fiction novel 
published by Baen Books), The Modem 
Reference (Brady Books/Simon & Schuster) 
and the Atari ST text/graphics adventure game 
Gateway (Pryority Software). fl 
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You Own an Atar 

Why Be Forced to Read a Magazine that 
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YOUR ATARI RESOURCE CENTER 

ANALOG Computing continues to offer exciting products for you and your Atari 
Computer. And we're the only magazine for the Atari 8-bit computer line that hasn't 
allowed its content to be virtually taken over by coverage of the Atari ST. We in- 
clude only a minimal amount of ST material so that you can stay informed of what's 
happening with the 8-bit computer's brother. 



Whether you own a reliable ol' 400 or 800, a shiny XL, new XE or 
even an XE Game Machine ... we offer usable utilities, entertaining 
educational software, dynamite disk programs and great graphics 
and games, hi fact, our readers still use ANALOG programs that were 

published over five years ago! 



So when software companies turn their 
heads to other computers, you can turn 
yours to the one that supports your 8-bit Atari. And 
that's ANALOG Computing. 

ANALOG'S Best! Over 88 of ANALOG Computing's best and 

most requested programs are now available on this series 

of ten diskettes. The programs are all ready to run and come with complete 

documentation on the flip side of each floppy diskette. Select from Graphics, 

Educational, Utilities 1, Utilities 2, Disk Utilities and Games Disks 1, 2, 3, 4 

and 5. Only S9.95 each (plus $1.50 shipping per order). Specify disk title 

when ordering. 




Unlock the secrets of your Atari Computer! This handy 1 6-page pocket reference 

card covers information you need when programming your 8-bit. Error codes, internal 

codes, PEEK & POKE locations, machine-language aids, graphic mode specs and BASIC commands 

with abbreviations are only some of the helpful items at your fingertips. 

The ANALOG Computing Pocket Reference Card, only S7.95 each! 

(Plus $1.50 shipping and handling.) 



i 6502 Computer. 

Devotes^SO* of Its Pages to the Atari ST? 



An Atari 8-bit Extra. While other "Atari" 8-bit magazines just malce claims on how they 

cover your machine, we come through! Over 130 pages of new, never before published 

material. Programs like Easy Type, Dragon Chase, Pastels, Display List Mod, Tactics, Trivia 

and Create-a-base are all documented and ready to type in and run. . .all for just SB. 95! 

(Add $1.50 for shipping.) 



Get the Extra on disk! This special offer for Extra owners gets you all of the programs 
in an Atari 8-bit Extra on disk. Avoid typing errors, hours of tedious typing and frustration. 
Just plug in the disk and you are ready to roll! Two, ready-to-run double-sided floppies, $24.95. 
(Disks only. Atari 8-bit Extra sold separately. Please add 11.50 for shipping.) From the 
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magazine that always gives you something Extra. 
Why let your fingers do the walking when your 
Atari can do the running? Get this issue on 
disk! Every month we offer all of the pro- 
grams in ANALOG Computing on disk . . . 
ready to run. Even if you don't know 
anything about machine language or 
don't own the Action! cartridge, we 
offer programs in converted formats 
so they'll run on your Atari com- 
puter. Get this issue for just 
! 12.95 (plus $1.50 
shipping). 
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ANALOG COMPUTING OFFICIAL ORDER FORM 



Use this coupon to order the most corr^plete up-to-date products 
specifically designed for your ATARI PC! 

ANALOG'S BEST-Graphics Disk S 9.95 $ 

ANALOG'S BEST-Educatlonal Disk S 9.95 $ 

ANALOG'S BEST-Utlllties #1 $9.95 S 

ANALOG'S BEST-Utllltles #2 $9.95 S 

ANALOG'S BEST-Dlsk Utilities $ 9.95 S 

ANALOG'S BEST-Games #1 $ 9.95 S 

ANALOG'S BEST-Games #2 S 9.95 S 

ANALOG'S BEST-Games #3 $9.95 S 

ANALOG'S BEST-Games #4 S 9.95 $ 

ANALOG'S BEST-Games #5 S 9.95 S 

ANALOG COMPUTING-POCKET REFERENCE CARD. .S 7.95 S 

ANALOG COMPUTING-8-bit EXTRA S 8.95 S 

ANALOG COMPUTING— 8-bit EXTRA (on disk) S24.95 S 

ANALOG MAGAZINE ON DISK (please specify issue) SI 2.95 S 

SHIPPING AND HANDLING— add S 1 .50 for each product ordered S 

TOTAL ORDER S 

n Payment Enclosed Charge My D VISA □ Master Card 

Card # Exp. 

Signature 

Name 

Address 

City State Zip 

Mal^e checks payable to: LFP, Inc. P.O. Box 67068, Los Angeles, CA 90067. 

Your order will arrive in 4 lo 6 weel(s — WATCH FOR IT! ZIHYY 

California residents add 6.5% sales tax on all orders except back issues 
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